Program Max;
Uses Crt;
var a,b,max:real;
begin
clrscr;
write('Введите число а:');
readln(a);
write('Введите число b:');
readln(b);
if (a=b) then writeln('Числа одинаковы')
else begin
max:=a;
if (b>a) then max:=b;
writeln('Наибольшее число:',max);
end;
readkey;
end.
Var alfa, a1, c, a, g, m, cs : real;
begin
alfa:=30;
c:=13;
a:=-18;
g:=4+(c-a)*(c-a);
a1:=3.14*alfa/180;
cs:=cos(a1-a1*a1);
m:=9.8*(c-a)*(a-c)*cs*cs;
writeln('g = ',g,' m = ',m);
end.
Результат:
g = 965 m = -8843.80431485503
6 * 40 * 60 = 14400 - всего символов.
Вес всего сообщения = 9000 байтов = 72000 бит
72000 / 14400 = 5 бит
i = 5 бит
Ответ: Вес одного символа 5 бит.
Итак:
1) 16*32*30*8=122 880
2)122 880 / 1024=120 (байт)
Ответ: 120 байт