program raf105;
var
i,n: integer;
s: real;
begin
write('Введите N: ');
readln(n);
repeat
i:= i+1;
s:= s + 1/i;
until i = n;
writeln('S = ',s);
end.
<h3><u>PascalABC 3.4.2</u></h3>
128=2^7 значит 7 бит весит 1 символ
80*60=4800 символов
4800*7=33600 бит=4200 байт=4,1 килобайт
Когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).
V = 256 000 бит/с
t = 64 с
I =256 000 * 64 = 16384000 бит = 2000 Кбайт
Ответ: 2000 Кбайт