Написать алгоритм факториала в паскале
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
