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

Question

Информатика

Вера

17 февраля, 18:35

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

+3

Ответы (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