Ответы на вопрос:
за почерк, надеюсь поймешь, я торопился :)
Объяснение:
Если что непонятно, пиши, отвечу.
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b,c): =readinteger3; var k: =0; if a.iseven then k+=1; if b.iseven then k+=1; if c.iseven then k+=1; writeln('количество четных чисел равно ',k) end.
Популярно: Информатика
-
Lumperz28.01.2021 21:11
-
adrienagreste120.06.2021 01:28
-
Пётр7511.12.2021 13:01
-
мария196514.05.2022 21:21
-
Thefirstthing04.02.2022 17:52
-
sququ129.04.2022 14:35
-
светик48024.01.2021 02:29
-
chorna20226.01.2022 00:37
-
lНанамиТянl07.03.2023 20:19
-
priutkorel12.08.2022 07:48