Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100
198
377
Ответы на вопрос:
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.
Популярно: Информатика
-
pashamironov2001.07.2021 14:53
-
фывапрпиол06.09.2020 03:25
-
Гульжа123408.03.2023 06:22
-
FTA72артем05.03.2022 11:50
-
jhdjshshdh18.03.2020 04:29
-
FaizTimYr15.10.2022 22:32
-
topovaya302.04.2022 10:11
-
Акмарал25288727.12.2022 11:44
-
tatanapahomova919.07.2020 17:51
-
Liya2003423.08.2021 03:23