Ответы на вопрос:
Var sum, x : integer; begin sum : = 0; repeat read (x); if (x mod 6 = 0) and (x mod 10 = 2) then sum : = sum + x; until x = 0; write (sum); end.
Популярно: Информатика
-
DoodleCrazy10.02.2022 04:54
-
semic131.10.2022 02:24
-
Эээээээ1128.09.2022 20:41
-
panda06819.07.2022 21:42
-
Vindrosel17.11.2021 02:43
-
Top4ik8027.03.2022 02:46
-
verastepanova501.07.2022 07:21
-
miao201.04.2020 00:02
-
strongbaltaevowj0hz12.10.2021 11:09
-
знайчушка30.05.2023 05:24