Question

Паскаль: Напишіть програму обчислення добутку а(а+1)(а+2)....(а+n-1)

Answer 1

Program Zd;
var
  a, n, I, res: Integer;
begin
  WriteLn('Input the a: ');
  Read(a);
  WriteLn('Input the n: ');
  Read(n);

  res:=a;

  for i:=1 to n - 1 do
    res:=res * (a + i);

  WriteLn('Результат: ', res);
end.

Answer 2

Я можу допомогти вам написати програму на Паскалі, яка обчислює добуток а(а+1)(а+2)....(а+n-1). Ось кроки, які ви повинні зробити:

- Оголосіть змінні а та n як цілі числа, а змінну p як довге ціле число. Змінна p буде зберігати добуток, а змінна а буде змінюватися від а до а+n-1. - Зчитайте значення а та n з клавіатури за допомогою функції readln. - Присвойте змінній p початкове значення 1. - Створіть цикл for від i від 1 до n. В тілі циклу, помножте змінну p на змінну а і збільште змінну а на 1. - Виведіть значення змінної p на екран за допомогою функції writeln.

Ось приклад програми, яка реалізує ці кроки:

program product;
var
  a, n, i: integer;
  p: longint;
begin
  writeln('Введіть значення а та n');
  readln(a, n);
  p := 1;
  for i := 1 to n do
  begin
    p := p * a;
    a := a + 1;
  end;
  writeln('Добуток дорівнює ', p);
end.

Я сподіваюся, що це вам допоможе. Якщо ви хочете дізнатися більше про Паскаль, ви можете переглянути ці ресурси: [Паскаль: Напишіть програму обчислення добутку а(а+1)(а+2)....(а+n-1)](https://online-otvet.ru/informatika/5cea71cb96f4e19a29f50774), [Pascal/Математичні операції](https://uk.wikibooks.org/wiki/Pascal/%D0%9C%D0%B0%D1%82%D0%B5%D0%BC%D0%B0%D1%82%D0%B8%D1%87%D0%BD%D1%96_%D0%BE%D0%BF%D0%B5%D1%80%D0%B0%D1%86%D1%96%D1%97), [Как вычислить сумму 1!+2!+3!+...+n!](https://ru.stackoverflow.com/questions/861773/%d0%9a%d0%b0%d0%ba-%d0%b2%d1%8b%d1%87%d0%b8%d1%81%d0%bb%d0%b8%d1%82%d1%8c-%d1%81%d1%83%d0%bc%d0%bc%d1%83-123-n).