Question

Составить программу вычисления факториала целого положительного числа,через while.Паскаль

Answer 1

var i,n,f:integer;
begin
readln(n);
i:=1;
f:=1;
while i<=n do begin f:=f*i;
inc(i);
end;
writeln(f);
readln;
end.