Question

Pascal
Задание : Необходимо суммировать все нечётные целые числа в диапазоне, 0-10.
1 3 5 7 9

Answer 1

var _sum, i : integer;

begin

_sum := 0;

i := 1;

while i < 10 do

begin

_sum := _sum + i;

i := i + 2;

end;

writeln('Сумма нечетных из диапазона (0-10): ', _sum);

end.