Ответы на вопрос:
Var x, y: longint; g, f: text; begin assign (g, 'input.txt'); assign (f, 'output.txt'); reset (g); read (g, x, y); close (g); rewrite(f); if x< y then write(f, x); if x> y then write(f, y); close (f); end.
Популярно: Информатика
-
аьвтчьвь10.06.2023 17:47
-
zilola302.04.2021 06:00
-
марина192929.10.2022 12:30
-
Ddoj24.11.2020 11:12
-
vikulek104.11.2020 20:54
-
vladpaskevits07.04.2022 07:12
-
Пианино55526.12.2022 22:05
-
artemts24209.05.2023 10:59
-
лера140517.06.2020 18:53
-
polinavak0519.06.2021 22:33