Program prog;
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
x:=2*sqr(a);
y:=3*b;
writeln;
writeln ('X = ', x:0:3, ' Y = ', y:0:3);
if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.
174×8=1392бита
342,3×1024=350 515,2
Program Zadacha;
var
x, y: real;
Begin
Write('Enter x, y ');
ReadLn(x, y);
WriteLn(x, ' + ', y, ' = ', x+y);
WriteLn(x, ' - ', y, ' = ', x-y);
WriteLn(x, ' * ', y, ' = ', x*y);
WriteLn(x, ' / ', y, ' = ', x/y);
ReadLn;
End.
Для записи одного символа необходимо log(2)128 = 7 бит.
Количество информации в сообщении = 200*7 = 1400 бит = 1400/8 байт = 175 байт