Question

Найти произведение от 1до n( P=1*2*3....*n) на языке паскаль

Answer 1

var
    factorial:
longint;
    n, i: byte;  
begin
write('n = '); readln(n);  
    factorial := 1;  
for i:=2 to n do factorial := factorial * i;  
writeln('n! = ', factorial);  
readln;
end.