Написать программу вычисления N! (факториал числа N). Факториал вычисляется по формуле (см. рисунок).

Протестировать программу для N=0, N=2 N=4.

1

Ответы и объяснения

2012-05-06T18:30:51+04:00

var n,f,i: integer;
begin
readln(n);
if n<0 then exit;
f:=1;
for i:=1 to n do f:=i*f;
writeln(f);
end.