2^i=N, где N - кол-во символов в алфавите, i - вес 1 символа в битах
Для решения задачи нужно
i*600 это и будет ответом.
program raf105;
var a,sum,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a);
sum += a;
end;
writeln('Сумма: ',sum);
end.
<em><u>Язык PascalABC</u></em>
Любой из этих 32х символов занимает 5 бит. 10 байт - 80 бит. 16 символа в секунду. 960 в минуту.
<span>за 5 минут - 4800 символов.
</span>
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
5.To(25).Println
end.
<span>Сведения команды из окружающего мира называется информацией</span>