Ответы на вопрос:
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.
Популярно: Информатика
-
masha2812281222.02.2021 03:02
-
nvanislavskaya19.06.2020 03:56
-
alyapareczkaya20.02.2021 21:28
-
dilasagadatova13.04.2022 10:18
-
cfvjktn817.02.2021 10:50
-
yanaiweey23.10.2020 12:20
-
zhekeeva201306.01.2022 02:11
-
026k21.07.2021 16:57
-
Negumanitariy27.02.2020 14:03
-
137rdh05.04.2021 21:49