Ответы на вопрос:
Procedure swap(var a, b: real); var c: real; begin c : = b; b : = a; a : = c; end; var a, b, c, d: real; begin readln(a, b, c); if (a < b) then swap(a, b); if (b < c) then swap(b, c); if (a < b) then swap(a, b); writeln('min = ', c, #13, 'max = ', a); end.
Популярно: Информатика
-
ryssik10.06.2020 05:51
-
012322021017.01.2023 05:08
-
Daniil19951120.12.2021 13:03
-
KyroSC29.05.2020 03:58
-
llvoronall30.05.2020 18:59
-
liskotovich15.10.2022 06:48
-
milashka4410.04.2023 10:52
-
akmsulu28.05.2023 17:09
-
akur1227.02.2023 02:13
-
евгений25817.05.2023 18:35