Найти сумму положительных нечетных чисел меньше 50 (free pascal)

[xxx966]

помогите составить программу.

Найти сумму положительных нечетных чисел меньше 50

[domovou]

var sum,i:integer;
begin
sum:=0;
for i:=1 to 50 do
      if i mod 2 <> 0 then sum:=sum+i;
writeln(sum);
end.

[TinMan]

Домовой, ну зачем идти по всем числам и проверять?.. Не проще ли по половине - и без проверки?..

for i:=1 to 50 div 2 do s:= s+2*i-1;

Я уж молчу про то, что тут все считается без цикла, а по формуле суммы арифметической прогрессии..

[domovou]

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

Домовой, ну зачем идти по всем числам и проверять?.. Не проще ли по половине - и без проверки?..

Проще, не додумал))

[Stilet]

var sum,i,k,l:integer;
begin
sum:=0;k:=2;l:=50;
for i:=1 to 25 do begin
       sum:=sum+k+l;
 inc(k,2);dec(l,2);
end;
writeln(sum);
end.

Сократить кол-во проходов, не?
Или типа (50+2)*24... Где то я в матсправочниках этот метод видел, но точно не помню...

P.S. В прочем что-то я туплю...