Даны действительное число А и натуральное N. Вычислить P=A*(A-N)*(A-2*N)*...*(A-N*N) с...

Question

Даны действительное число А и натуральное N. Вычислить P=A*(A-N)*(A-2*N)*...*(A-N*N) с помощью функции.СРОЧНО!!!

Answer 1

Var N: integer;
    A: real;
{ нахождение суммы ряда }
function Sum(A: real; N: integer) : real;
var i: integer;
    s: real;
begin
   s:=A;
   for i:=1 to N do   s:=s*(A-i*N);
   Result:=s;
end;
{ конец процедуры }
{ основная программа }
begin
  write('задайте N:  ');
  readln(N);
  writeln('задайте A:  ');
  readln(A);
  writeln('сумма ряда равна:  ',Sum(A,N));
end.