Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(a);
For A:= A+1 to A+21 do
Write(A,' ')
End.
Sum:=0;
for i:=55 downto 42 do sum:=sum+i;
Var a,b:real;
begin
read(a,b);
swap(a,b);
write(a,b);
end.
При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит, при использовании 2 цветов - log(2)2 = 1 бит.
70 байт = 70*8 бит
Пусть K - количество точек изображения. Тогда 8*K - 1*K = 70*8 ⇒ K = 80
Размер исходного файла = 8*80 = 640 бит = 80 байт
1) 32 это 2 в пятой степени ответ 5
2) 4*5=20 бит 5*6=30 бит ответ второе