Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
В строчке read('a'); апострофов быть не должно. Замени на read(a);
625Кбайт = 625*1024*8 = 5120000бит
5120000/128000=40 сек
1. 1 символ кодируется 16-ю битами. (16=2^4)
3 *2^13 бит : 2^4 бит = 3*2^9 =3*512 =1536 символов в тексте.
2. 1 символ кодируется 8-ю битами.
1 байт =8 бит
1 Кбайт =1024 байт
F = 5*25*40*8 = 40 000 бит = 5 000 байт = 4,8828 Кбайт≈ 5 Кбайт