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

Question

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

---

Answer 1

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

Answer 2

//PascalABC.Net 3.2
function fact(n: integer):biginteger;
begin
var prod:biginteger:=1;
for var i:=1 to n do prod*=i;
result:=prod;
end;

begin
write ('Факториал = ', fact(readinteger('Введите число')));
end.