Ответы на вопрос:
Var x,y,z: real; function min(a,b: integer): integer; begin if a< b then result: =a else result: =b; end; begin writeln('введите х и у: '); readln(x,y); z: =min(3,x)+min(x,y)-min(y,5); writeln('z=',z); end.
Популярно: Информатика
-
azolin5674567420.06.2021 17:10
-
ishohahdh23.05.2022 10:44
-
kilbas1ggttyi08.11.2022 23:07
-
Habibullo3219.12.2021 11:09
-
lera7856711.07.2021 09:29
-
лололололлоло9730.06.2023 21:37
-
Марьяша07722.09.2022 05:05
-
круасана25.05.2022 10:04
-
malaya10802.04.2021 21:37
-
Dan270715.08.2020 22:28