Пожаловаться
- 04.11.2017 08:33
- Информатика
- remove_red_eye 14219
- thumb_up 26
Ответы и объяснения 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
Пожаловаться
- 05.11.2017 00:46
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы