Ответы на вопрос:
Var x,y,z: integer; procedure min(x,y) begin if x> y then return x; else return y; end; procedure max(x,y) var c: integer; c=x+y-ma(x,y); return c; end; begin read (c); z=min(x,y)+max(x*y,x+y); writeln(z); end.
Популярно: Информатика
-
Фадиля07.03.2023 11:39
-
AceAlone05.03.2020 12:03
-
умник130807.01.2022 05:58
-
Serch2326.07.2022 02:37
-
кактыдумаешьотом06.05.2023 15:47
-
Памагити111111106.06.2022 05:31
-
runeto01.01.2021 04:45
-
roma1xayatov22.08.2021 08:30
-
taibovakari17.03.2021 21:32
-
илья855103.09.2021 12:21