Выдает ошибку операция > не может быть применена к типам boolean и integer program qq; var a,b,c,max,min,med : integer; begin writeln ('введите три числа'); read (a,b,c); if c> b> a then begin max : = c; med : = b; min : = a; end; if b> a> c then begin max : = b; med : = a; min : = c; end; if a> c> b then begin max : = a; med : = c; min : = b; end; writeln ('наибольшее число', max); writeln ('среднее число', med); writeln ('наименьшее число', min); end.
267
275
Ответы на вопрос:
Ну так правильно пишет , нельзя писать if b> a> c then begin , пишется правильно так if (c> b) and (b> a)then begin , вообщем вот держи ; program qq; var a,b,c,max,min,med : longint; beginwriteln ('введите три числа'); read (a,b,c); if (c> b) and (b> a)then beginmax : = c; med : = b; min : = a; end; if (b> a) and (a> c)then beginmax : = b; med : = a; min : = c; end; if (a> c) and (c> b)then beginmax : = a; med : = c; min : = b; end; writeln ('наибольшее число', max); writeln ('среднее число', med); writeln ('наименьшее число', min); end.
Популярно: Информатика
-
elenka42131.01.2022 08:49
-
ilariyao05.01.2022 01:26
-
Polina1905102.05.2022 12:27
-
jamashkinpavel22.12.2021 06:18
-
К1а2т3я45605.10.2021 14:59
-
milinamonid17.04.2023 13:47
-
daniar1611.08.2021 22:54
-
Cuba12501.08.2021 14:50
-
nioniker08.02.2023 22:54
-
alinashakeeva21.10.2020 12:50