Ответы на вопрос:
Uses crt; var a, b: integer; begin write('введите а и в '); readln(a, b); if ((a> 0) and (a mod 2=0)) or ((b> 0) and (b mod 2=0)) then writeln ('четное число есть') else writeln ('четных чисел нет'); end.
Популярно: Информатика
-
Vadimlvo1109.08.2022 05:47
-
oldtelephone2025.06.2021 06:27
-
nnnnn77710.12.2020 02:07
-
vk2931416haker19.04.2021 03:42
-
permyashkinanap0a88m13.05.2022 15:51
-
mariamya19.02.2021 07:17
-
878v87809.02.2022 08:02
-
Enot78721.05.2023 19:51
-
hers2521.04.2023 10:39
-
Angel908730.06.2023 06:21