Найти сумму положительных четных чисел, больших 150 и меньших 200 pascal
143
230
Ответы на вопрос:
Var i,s: integer; begin s: =0; for i: =150 to 200 do if i mod 2=0 then s: =s+i; writeln(s); end.
Популярно: Информатика
-
УРВ0505200129.05.2023 12:43
-
ВККeerboom18.11.2022 07:17
-
BMW53529.11.2020 15:46
-
Oks09903.07.2020 17:22
-
Никитка112306.10.2020 09:42
-
arzumirzeyeva10.02.2023 20:25
-
FreeSasha22.08.2020 23:50
-
arsenagadzhanin20.06.2023 10:47
-
studentASH26.02.2023 04:31
-
Eteryna16.12.2022 13:22