Question

дано натуральное число n. Вычислить n!= 1*2*3*...*n

Answer 1

program vld;

var

factorial: longint;

n, a: byte;

begin

write('n = '); readln(n);

factorial := 1;

for a:=2 to n do

factorial := factorial * a;

writeln('n! = ', factorial);

readln;

end.