Ответы на вопрос:
Var n1,n2,n3,n4,n5: integer; begin readln(n1,n2,n3,n4,n5); if (n1> n2) and (n1> n3) and (n1> n4) and (n1> n5) then writeln('максимальное число: ',n1) else if (n2> n1) and (n2> n3) and (n2> n4) and (n2> n5) then writeln('максимальное число: ',n2) else if (n3> n1) and (n3> n2) and (n3> n4) and (n3> n5) then writeln('максимальное число: ',n3) else if (n4> n1) and (n4> n3) and (n4> n2) and (n4> n5) then writeln('максимальное число: ',n4) else writeln('максимальное число: ',n5); end.
Популярно: Информатика
-
Дря07.06.2021 04:03
-
Gadik22826.05.2023 03:21
-
longassride03.02.2023 22:26
-
davidforest111p0dsil20.12.2021 13:45
-
baklazhan200422.09.2020 01:29
-
SnopcovaAlina0703.01.2023 08:26
-
Тимофей1772721.03.2022 12:11
-
Cradzul19.01.2021 07:29
-
DarvinaDark06.06.2023 12:31
-
123294605.10.2021 13:40