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

Emptу Emptу    3   18.09.2021 03:55    0

Ответы
Guletta Guletta  18.09.2021 06:00

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика