Ряды Опции

[kess]

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

[Lapp]

P=a(a-n)(a-2n)...(a-a2) (a в квадрате)

Квадрат обычно обозначается так: a^2.
Мне не совсем понятно условие. Это перемножение скобок вида (a-i*n) до тех пор, пока i*n не превысит a^2? Странно это как-то.. Может, последняя скобка - это (a-n^2) - так?

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

Все же лучше, чем ничего .
Почему ты меняешь а? Оно же не должно меняться!
Считай все в р, а перед циклом присваевай ему 1.

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