Pascal. найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем.
221
431
Ответы на вопрос:
Var summ: integer; begin for var i: =30 to 100 do begin if (i mod 3) = 0 then summ : = summ + i; end; writeln('сумма = ', summ); end.
Популярно: Информатика
-
Viktorua1005.08.2020 09:57
-
YYanamaiY24.07.2021 11:35
-
marinka10k28.07.2022 04:52
-
Школьник07111.08.2020 13:54
-
Ирина1512301001.01.2023 16:42
-
artemts24213.07.2020 18:39
-
viktoriabuble08.01.2020 18:25
-
kislayaya1309.01.2023 21:32
-
nursultan1819.09.2020 18:41
-
hayatuzun0027.06.2022 13:17