Предмет: Информатика,
автор: ksenata
Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Русский язык,
автор: mamatovaasiya
Предмет: Английский язык,
автор: hdyujbftuuguu7
Предмет: Українська мова,
автор: krasovskamarjana2017
Предмет: Литература,
автор: garlk198040
Предмет: Алгебра,
автор: SeperDen4ik123