Проверьте решение задачи на цикл(2)

[Zakian]

s=1+3+5+7+...+(2n+1)

 program asd;
var s,i,n:integer;
begin
s:=0;
for i:=1 to n do 
begin
s:=s+(2*i+1);
i:=i+2;
end;
writeln(s);
readln;
end.

Возможно шаг надо делать i:=i+1, но тогда паскаль "засыпает".

[alex_fcsm]

Надо

s:=s+(2*i-1)

И изменять счетчик в цикле не нужно

[Zakian]

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

Надо

s:=s+(2*i-1)

И изменять счетчик в цикле не нужно

Если вас не затрудняет, можете объяснить почему?

[alex_fcsm]

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

Если вас не затрудняет, можете объяснить почему?

По-моему очевидно, посчитайте вручную - поймете.

[Zakian]

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

По-моему очевидно, посчитайте вручную - поймете.

Посчитал, все правильно. Дурак я, сильно туплю. Спасибо вам.