В Паскале с помощью repeat. Составьте программу, которая выводит на экран сумму нечетных чисел от 36 до 66.

Begin

Writeln (((65+37) * ((65-37) div 2 + 1)) div 2) ;

end.

Или более универсально:

Var A, B : Integer;

Begin

Readln (A, B) ;

Inc (A, Ord (not Odd (A))) ;

Dec (B, Ord (not Odd (B))) ;

Writeln (((B+A) * ((B-A) div 2 + 1)) div 2) ;

end.

А если строго по заданию, то так:

Var S, i : Integer;

Begin

s:=0; i:=37;

Repeat

s:=s+i;

Inc (i, 2) ;

Until i>65;

Writeln (s) ;

end.