Ответы на вопрос:
Var x,y,u: real; function min(a,b: real): real; begin if a> b then min: =b else min: =a; end; begin write('x='); read(x); write('y='); read(y); u: =min(x+y,x*y); writeln(u); end.
Популярно: Информатика
-
nik2055488828.12.2020 05:03
-
lipovtsev201604.02.2021 09:40
-
lesnichka198029.04.2020 13:51
-
Баэхич23.01.2020 10:28
-
angelinakunda22.10.2021 11:54
-
Kurlyk11103.02.2020 09:44
-
fcnhff715.02.2020 01:17
-
ksjsksskskjns12.11.2022 22:07
-
DarkD071108.03.2023 07:38
-
ИноК1120.06.2020 12:14