Program Problem1; { Вычисление факториала числа n! }
uses WinCrt;
var
n, f, i : longint;
begin
write("Введите натуральное число "); readln(n);
f := 1;
if n <> 0 then for i := 1 to n do f := f*i;
writeln("Факториал числа ", n, " равен ", f)
end.
также можно сделать так:
Program Problem1a;
uses WinCrt;
var
n, i, f : longint;
begin
write("Введите натуральное число "); readln(n);
f := 1;
if n <> 0 then for i := n downto 1 do f := f*i;
writeln("Факториал числа ", n, " равен ", f)
end.