program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.
Всего точек в изображении 55 х 55 = 3025
Точка может быть только черной или белой, для ее хранения достаточно 1 бита.
Объем памяти займет 3025 бит или 3025 / 8 = 378,125 байт, после округления в большую сторону 379 байт
Program summa;
<span>var a, b, c, s: real; </span>
<span>begin </span>
<span>writeln('Введите числа a, b, c'); </span>
<span>readln(a,b,c); </span>
<span>s:=abs(a)+abs(b)+abs(c); </span>
<span>writeln('s=,'s); </span>
<span>readln; </span>
<span>end.</span>
Количество информации в одном символе = log(2)32=5 бит
230 байт = 230*8 бит
Количество символов в сообщении = (230*8)/5 = 368