1) N=2=2^i ⇒ i=1
I=22*22*1=484 бит.
2) 512*342=<span>175104
3) N=4=2^i </span>⇒ i=2
K=720*360=<span>259200
I=K*i=2*</span>259200=<span>518400</span>
.............................................
Var
i, n: integer;
P: real;
Begin
Write('n = ');
ReadLn(n);
P := 1;
For i := 1 to N do
P := P * i;
WriteLn('P = ',P);
End.
1 раз. На 2-ом проходе у тебя while не выполняется