Ответы и решения

Напишите программу вычисления произведения: а*(а+1)*(а+2)*....*(а+n-1).....сросно надо...

0 голосов
40 просмотров

Напишите программу вычисления произведения: а*(а+1)*(а+2)*....*(а+n-1).....сросно надо...


Информатика Начинающий (140 баллов) | 40 просмотров
Дан 1 ответ
0 голосов

var

  s, a, n, i : longint;

begin

  read (a, n);

  s := 1;

  for i := 0 to n - 1 do

    s := s * (a + i);

  writeln (s);

end.

Одаренный (4.6k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей