var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15
I = k * i - объём памяти.
k - кол-во символов; i - кол-во бит на 1 символ;
I = 50 кб = 51 200 байт = 409 600 бит.
k = I / i = 25 600 - всего символов в тексте.
k = a * b * p = 25 600;
a - кол-во символов в строке; b - кол-во строк; p - кол-во страниц;
32 * b * 25 = 25 600. Следовательно b = 32.
ответ: 32 строки.