Question

Обчислити суму непарних чисел від 50 до 100 за допомогою операторів циклу

Answer 1

var

 sum, i: Integer;

begin

 sum := 0;

 i := 51;

 while i < 100 do begin

   sum := sum + i;

   i := i + 2;

 end;

 WriteLn(sum);

end.