Для определения информационного объема сообщения воспользуемся формулой: I = K * i, где K - количество символов, i - вес одного символа.
1) 1024 страницы, на одной странице помещается 64 строки, а в строке помещается 64 символа. Каждый символ в кодировке КОИ-8 занимает 8 бит памяти.
i = 8 бит
K = 1024 * 64 * 64 = 4194304 символов,
I = 4194304 * 8 = 33554432 бит = 4194304 байт = 4096 Кбайт = 4 Мбайт
2) 512 страниц, на одной странице в среднем помещается 64 строки, а в строке 64 символа. (Каждый символ в кодировке Unicode занимает 16 бит памяти.)
i = 16 бит
K = 512 * 64 * 64 = 2097152 символов,
I = 2097152 * 16 = 33554432 бит = 4194304 байт = 4096 Кбайт = 4 Мбайт
*8 бит = 1 байт
1024 байт = 1 Кбайт
1024 Кбайт = 1 Мбайт
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.
Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833
2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)
uses Crt;
var
n:integer;
x,a:real;
begin
a:=0;
n:=0;
repeat
Read(x);
if x>=0 then begin
n:=n+1;
a:=a+x
end
until x<0;
a:=a/n;
Writeln('Ср.арифм: ',a:0:4);
ReadKey
end.