Дано натуральное число n. Вычислить a(a-n)(a-2n)...(a-nn)

Question

Дано натуральное число n. Вычислить a(a-n)(a-2n)...(a-nn)

Comments

Это информатика? Тогда нужна программа или блок-схема? Следовательно, если дано n, должно быть дано и a

---

это програма. а не дано

---

Хороший ответ. Свидетельствующий о глубоком непонимании вопроса. Значит, не договоримся...

---

короче,нужно написать прогу,переменные не даны.вероятно,следует осуществить их ввод...

---

Вы обратились на ресурс, где присутствуют не только детишки, но и взрослые люди, решающие задачи. Поэтому оставьте свои "инфа", "прога" и т.п. для общения с равными себе по возрасту.

---

Взрослый человек,я использую абривиатуры и сокращения из-за недостатка времени,не стоит так вызывающе себя весьти,рекомендую поработать над самооценкой

---

Это было последнее из заданий, которое я для Вас сделал. У Вас "нехватка времени" дописать нормально слово, но хватает его на то, чтобы поучать других в том, чему Вам самому еще учиться и учиться.

Answer 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