Ряды Опции

[kess]

Даны действительные число а и натуральное n .Вычислить :
P=a(a-n)(a-2n)...(a-a2) (a в квадрате)

[volvo]

Выделяешь общий член последовательности, и смотришь в поиске, как вычисляются ряды... Программы уже выкладывались.

[kess]

Выделяешь общий член последовательности, и смотришь в поиске, как вычисляются ряды... Программы уже выкладывались.

вот так можно или это бред??

Program vosem;
Var i,n:integer;
p,a:real;
begin
WriteLn('Vvedite a');
Read(a);
WriteLn('Vvedite n');
Read(n);
for i:=1 to n do
begin
a:=a-i*n;
p:=a*(a-(i*n));
end;
WriteLn('Otvet=',p:3:3);
End.