2 в степени i = N (мощность алфавита)
2 в степени i = 16
i = 4 бит (вес 1-го символа)
16 * 32 * 4 = 204/8 бит = 256 байт = 0,25 Кб(вес одной страницы)
20 / 0,25 = 80 страниц
var
a, b: real;
n: integer;
function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;
function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;
begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
Когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).