Написать программу на языке pascal вычисления суммы чисел кратных 3-ём в диапазоне от 1 до 100.
245
386
Ответы на вопрос:
Var i,s: integer; begins: =0; for i: =1 to 100 do if i mod 3 = 0 then s: =s+i; writeln('s = ',s); end.результат: s = 1683
Популярно: Информатика
-
Arinkaah19.01.2020 12:53
-
maga2008214.09.2022 12:56
-
09Sodlatov15.07.2020 01:01
-
суроккк04.08.2021 05:53
-
dashanarmania28.01.2021 23:59
-
Bogura05.07.2022 10:44
-
ппмв08.04.2023 17:15
-
KKotya1k26.12.2021 00:31
-
Коля11111111к16.01.2021 12:52
-
Марси66722.04.2022 10:14