Написать алгоритм факториала в паскале
Ответы на вопрос
Ответил Аноним
0
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
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
Новые вопросы
Биология,
2 года назад
Химия,
2 года назад
Обществознание,
9 лет назад
Математика,
9 лет назад
Математика,
10 лет назад
Геометрия,
10 лет назад