Ответы на вопрос:
Var mas : array [1..5] of longint; sum : longint; i: byte; begin for i: =1 to 5 do begin read (mas[i]); if (mas[i] mod 4 = 0) and (mas[i] mod 10 = 6) then sum: =sum+mas[i]; end; writeln (sum); end.
Популярно: Информатика
-
Faza133710.09.2021 12:34
-
roversun710.02.2023 05:59
-
gggrrraaa28.09.2021 08:33
-
vladimirshmele122.04.2022 18:52
-
madecat15.06.2023 21:55
-
CasDavis02.06.2023 09:39
-
filimo200025.07.2021 07:22
-
shaihiev25.12.2021 23:25
-
katyakot5680601.09.2021 09:42
-
lera106205.12.2022 04:02