Question

Даны действительные числа a и натуральное число n. Вычислить P = a(a-n)(a-2n)...(a-n↑2).
Нужно составить программу на языке Pascal

Answer 1

Ответ:

program name;

var a, n, p, 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.