Question

P=a×(a+1)×(a+2)× ×(a+n-1) помогите​

Answer 1

Ответ:

var

 a, p: real;

 n, i: integer;

begin

 p := 1;

 readln(a, n);

 for i := 0 to (n - 1) do

   p := p * (a + i);

 writeln(p);

Пошаговое объяснение: