Ответы на вопрос:
// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin writeln('минимальное -> ', min(readinteger('a ='),min(readinteger('b ='),readinteger('c ='; end.
Var a, b, c, max: longint; begin readln(a, b, c); max: =a; if b > max then max: =b; if c > max then max: =c; writeln(max); readln; end a, b, c - наши числа max - максимальный вводим три числа, в ответ получаем максимальный
Популярно: Информатика
-
nasty30125.07.2022 08:17
-
yuliyayakunina10.03.2021 22:05
-
anton4rf413.04.2020 20:14
-
roman1999555527.06.2022 01:27
-
Чай2216.06.2023 15:15
-
sasharyabukhina28.05.2020 20:24
-
9955Х24.02.2022 04:32
-
zubiks10864204.02.2022 01:34
-
Anna11186414.01.2022 21:18
-
vishnevskayaya04.08.2020 02:40