Много воды, но о большой скорости никто не говорил, верно?)
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.
Var
x:integer;
begin
Writeln('x = '); readln(x);
if (x <> 0) and (x <> 5)then Writeln('y = ', 2*x/(x*(x-5)):0:5)else
Writeln('No Solution Exist');
end.
N=8
K=220
i = ?
I =?
N=2i
I=K*i 8=2i 8=3бит 220*3=660бит