инструкция for, Помогите пожалуйста понять как делать задачи с помощью инструкции for Опции

[Kris_Dex]

вот к примеру это задание:
вычеслите 1-1/2+1/3-1/4+1/5-1/6... для первых n членов.
никак не могу его решить.

[Lapp]

В дополнение к сказанному volvo - если не хочется заводить дополнительную переменную sign, можно вот так:

s:= 0;
for i:=1 to 5 do s:= s + (i mod 2*2-1)/i;

Думаю, именно это хотел сказать sheka (и ты, volvo, это прекрасно знал)). Да, sheka? )) Тебе нужно было использовать функцию Odd.. Но только зачем мудрить с приведеним типов, если можно сразу с целыми все сделать..

Но вариант с переменной sign эффективнее.