Ряды Опции

[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.

[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.

[kess]

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

да)))

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.

а если так?

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

[Lapp]

а если так?
...
p:=a;

Да, так лучше!
Действительно, нужно либо в р класть а, либо начинать цикл с 0.
Моя ошибка, спасибо за исправление!