Для хранения одного из 32 символов требуется log(2)32 = 5 бит (2^5 = 32).
Объем переданного сообщения = 20*5*60 = 6000 байт = 6000*8 бит.
Количество переданных символов = 6000*8 / 5 = 9600
Ответ:
program Calc;
var
i, n, m: Integer;
s: Double;
begin
Write ('Количество членов ряда = ');
ReadLn (m);
s := 0.5;
n := 1;
for i := 2 to m do begin
s := s + n / (i * 2);
n := -n;
end;
WriteLn ('S = ', s :20 :20);
ReadLn;
end.
3 Мбайт=25165824 Бит
256 Бит=0,031 Кбайт
98678256378 Бит=12045685,59 Кбайт
2 Мбайт=16777216 Бит
4 Мбайт=33554432 Бит
Var a, b, c, d, e: real;
begin
write('Введите 5 чисел через пробел: '); readln(a, b, c, d, e);
writeln('Среднее арифметическое = ', (a+b+c+d+e)/5);
end.