Question

Вычислите 5! (пять факториал) и перестройте в цикл с предусловием, пожалуйста!

Answer 1

program factorial;
var i,F:integer;
begin
F:=1;
i:=0;
while i<5 do
begin;
i:=i+1;
F:=F*i; 
end;
writeln ('F=', F);
end.