Арифметический цикл Опции

[polic]

значит надо возвести в (-1)степень i воспользовался FAQ выдаёт ошибку что преобразование типа bolean в byte
запрещено

[polic]

если никто не хочет помоч тк и напишите чтоб не ждал

[Michael_Rybak]

если никто не хочет помоч

Это сколько надо было мисс_граффити печатать вот это:

теперь смотри, что произойдет.
сначала v равно неизвестно чему (с высокой степенью вероятность 0)
ты считаешь

S1:=A+B*V;


скорее всего, получаешь А

много раз высчитываешь в цикле v (считаешь его каждый раз или не считаешь ни разу в зависимости от четности n)

for I:=m to n do
if ODD(N) then
v:=(A+X*i)/(B+X*i);


выходишь из цикла с последним значением v и в зависимость от четности n (опять же!) иногда меняешь знак.

А теперь объясни, в чем смысл этих шаманских действий? В S1 по-прежнему осталось А (а может, и не А)
В S вообще неизвестно что (вероятно - тоже А).

Не знаю, в каких справочниках ты копался, но лучше бы почитал FAQ и инфу по ссылкам, которые тебе дали.

чтобы оказалось, что никто не хочет помочь? Может быть, для успешной помощи не хватает обоюдного желания?