- 25.10.2017 20:05
- Информатика
- remove_red_eye 10482
- thumb_up 28
Ответы и объяснения 1
Var
a, n, p: longint;
i: integer;
begin
Write('Введите через пробел a и n: ');
Readln(a, n);
p := a;
for i := 1 to n do p := p * (a - i * n);
Writeln('Произведение равно ', p)
end.
Тестовое решение:
Введите через пробел a и n: 3 7
Произведение равно 884932096
- 26.10.2017 01:24
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.