program factorial;
var
n, i: integer;
result: longint;
begin
write('Input n: ');
readln(n);
result := 1;
for i := 2 to n do
result := result * i;
writeln('n! = ', result)
end.
Поделитесь своими знаниями, ответьте на вопрос:
ОЧЕНЬ НУЖНА ! Напиши программу на языке Паскаль и выведи ответ на экран. Вычислить n!, если значение n пользователь вводит с клавиатуры. Если n=11, то на экране выводится n!= .
program factorial;
var
n, i: integer;
result: longint;
begin
write('Input n: ');
readln(n);
result := 1;
for i := 2 to n do
result := result * i;
writeln('n! = ', result)
end.