Program gt;
var i,k:integer;
begin
k:=0;
for i:=1 to 1000 do
if(i mod 2=1)then begin
k:=k+1;
write(i,' ');
if(k=20)then exit;
end;
end.
2)
program gt;
var i,k:integer;
begin
k:=1;
write(k,' ');
for i:=1 to 14 do
begin
k:=k+3;
write(k,' ');
end;
end.
Глубина цвета
16 цветов = 2^4 = 4 бит
1024 * 128 * 4 = 524288 бит
524288 бит / 8 = 65536 байт / 1024 = 64 Кбайт
Ответ: 64 Кбайт
Var b,s:real;
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.
При решении этого задания надо знать:
A≡B =A*B+¬A*¬B (***)
таблицы истинности:
A B A≡B A+B A*B
0 0 1 0 0
0 1 0 1 0
1 0 0 1 0
1 1 1 1 1
--------------------------------
C учётом формулы (***) представим восьмое (последнее) уравнение в виде:
(x8≡x9)+(x8≡x10)=0; лог. сложение =0, когда оба слагаемых =0;
0' ≡ 1 + 0'≡ 1 = 0 - при х10=1 возможно 1 решение
х8=0 х9 =1
1' ≡ 0 + 1'≡ 0 = 0 - при х10 =0 возможно 1 решение
х8=1 х9=0
подставим полученные решения в седьмое (предпоследнее) уравнение:
(х7≡х8)+(х7≡х9) = 1
0 ' ≡0+ 0' ≡ 1 =1 имеем четыре решения х7 х8
1'≡ 0 + 1'≡ 1 =1 0 0
--------------------------- 0 1
0' ≡ 1 + 0' ≡ 0 =1 1 0
1' ≡ 1 +1 ' ≡ 0 =1 1 1
----------------------------------------------------------------------------------
подставляя из в шестое (сверху) уравнение, действуя аналогичным образом, можно убедиться, что решений (х6 ; х7) станет шесть , их надо подставить в пятое ур=е и тд.
--------------------------------------------------------
№уравнения 8 7 6 5 4 3 2 1
кол. решений 2 4 6 8 10 12 14 16
Ответ 16
1.Откройте почтовый ящик
2.Выберите ссылку написать письмо
3.Введите поле кому
4. Выберите тема
5. Введите текст письма
6.нажмите кнопку отправить