Написать алгоритм факториала в паскале

Question

Информатика

Манюта

10 ноября, 06:22

Написать алгоритм факториала в паскале

+2

Ответы (1)

Знаете ответ на вопрос?

Петаня · Answer 1

Var

i, n: integer;

f: longint;

begin

Write ('Задайте натуральное число: ') ; Readln (n) ;

f : = 1;

for i : = 2 to n do f : = f * i;

Writeln (n, '!=', f)

end.

Тестовое решение:

Задайте натуральное число: 5

5!=120