Question

Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100

Answer 1

var

   i, b: integer;

begin

   b := 0;

   for i := 1 to 100 do

       if (i mod 2 <> 0) then b := b + i;

   writeln(b);

end.