Ответы на вопрос:
Var a,b,c: integer; procedure min(a,b,c: integer); var min: integer; begin min: =a; if b < min then min: =b; if c < min then min: =c; writeln(min); end; begin readln(a,b,c); min(a,b,c); end.
Популярно: Информатика
-
nickitasychev25.09.2022 19:08
-
svetaЗОШ09.07.2020 06:52
-
алиса76924.06.2020 03:08
-
EnglishGod17.03.2020 21:32
-
guzhowa6630.08.2022 17:57
-
mrtopgame12.11.2022 02:56
-
АльтЛанд16.01.2020 12:00
-
Vikakotik511.06.2021 08:14
-
sasharaiskaja10.10.2021 03:27
-
Аnuk01.08.2020 23:09