Ответы на вопрос:
Program m; var a,b,c: integer; begin readln(a,b); if a< b then c: =a else c: =b; if c mod 2 =0 then writeln ('наименьшее число = ',c , '; данное число чётное') else writeln ('наименьшее число = ',c , '; данное число нечётное'); end.
Популярно: Информатика
-
GAGHHy31.05.2021 02:36
-
айка36515.10.2020 01:29
-
Рукалицоомг15.12.2022 14:50
-
vikakulba13.08.2022 09:17
-
doblezor05.08.2021 11:49
-
terteryanmarin29.03.2022 12:57
-
GanDyrAS14.05.2023 00:36
-
10518428.02.2020 18:58
-
valera123zeerow4kam25.02.2023 01:26
-
Ele000009.02.2020 20:01