Ответы на вопрос:
Var a, b, c, n : integer; procedure max(a,b: integer; var c : integer); begin if a> b then c: =a else c: =b; end; begin read (a,b,c); max(a,b,a); max(a,c,a); write (a); end.
Популярно: Информатика
-
Hayat1111123.12.2020 19:26
-
dima87878723.11.2022 12:01
-
gfg9y08.04.2020 21:25
-
SonyaYT24.06.2020 23:40
-
MrKreol07.02.2023 12:42
-
viahseslav06.01.2022 07:51
-
JetMinegrifer09.03.2020 18:38
-
Деп56720.03.2022 10:20
-
Zxcy05.07.2020 17:19
-
софи15723.06.2020 01:19