Программирование циклов (free Pascal)

[Jon_Morgan]

Вычислить a(a-2*n)(a-3*n)...(a-n^2). Не понимаю как записать это в цикле.

[Serge_Bliznykov]

p:=1;
for i:=1 to n do p:=p*(a-i*n);

[Jon_Morgan]

Нет, ответы не правильные выдает

[Serge_Bliznykov]

Сообщение от Jon_Morgan

Нет, ответы не правильные выдает

сочувствую.
А как Вы определили, что ответы не правильные? Интуиция?

Ну тогда ищите ошибку.

Может быть, Вы в формуле ошиблись, может быть, входные данные не те,
может быть, переполнение возникает, может быть, сверяете не с теми данными, мы же не знаем, что Вы там творите.

[evg_m]

p:=1; for j:=1  ... 
p:=p*(a-i*n);

это 1*(a -1*n)(a-2*n)....(a-n*n)
а унас в первом множителе не совсем то

a(a-2*n)(a-3*n)...(a-n^2)

p:=a;
for j:=2 ....

[Serge_Bliznykov]

Сообщение от evg_m

а унас в первом множителе не совсем то

да, согласен, Вы правы, это мой косяк.