Ответы на вопрос:
Program z1; var a,b,c,d,e: integer; begin writeln('введите числа: '); write('первое число (a): '); read(a); write('второе число(b): '); read(b); if (a mod 2=0) then c: =a; if (b mod 2=0) then d: =b; if (a mod 2=0) or (b mod 2=0) then writeln('среди введённых чисел присутствует чётное число') else writeln('среди введённых чисел нет чётных чисел'); if (c=a) then writeln('чётное число: ',c); if (d=b) then writeln('чётное число: ',d); end.
Популярно: Информатика
-
abdullaxadeaygün29.11.2022 22:53
-
макс1010612.03.2023 21:37
-
Intagul05.05.2023 03:59
-
алисалисова161126.08.2022 19:42
-
sultanguloverik217.04.2023 20:00
-
Stasya198506.01.2022 21:19
-
bogdanostapenko06.12.2020 09:51
-
Didasret21.02.2022 07:52
-
baranovdanil200127.07.2020 21:04
-
artem70527.06.2020 02:19