Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>
600*800*24=11520000 бит = 1140000 байт = 1406,25 Кб = 11,34 Мб
<em>1</em><span><em> Гб=1024Мб </em></span><em>1Мб=1024Кб 1Кб</em><span><em>=1024 байта </em></span><em>1</em><span><em> байт= 8 бит</em></span>
N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита