Ответы на вопрос:
1. var a,b,c,d: integer; begin read (a,b,c,d); begin if (a> b) and (a> c)and (a> d) then writeln ('большее - ',a); if (b> a) and (b> c)and (b> d) then writeln ('большее - ',b); if (c> a) and (c> b)and (c> d) then writeln ('большее - ',c); if (d> a) and (d> b)and (d> c) then writeln ('большее - ',d); if (a=b) and (a=c)and (a=d)and (b=c) and (b=d) and (c=d) then writeln ('все числа равны'); end; end.
Популярно: Информатика
-
olymaks7431.03.2020 05:24
-
миша112723.09.2020 01:42
-
vomid542121.03.2022 21:57
-
Sokolovskaya11411.07.2021 02:43
-
aizy217.02.2021 14:30
-
kisa99w934e828.12.2022 08:48
-
Sonechka2005200514.12.2021 18:22
-
ModerBlet06.03.2020 07:10
-
rezkova25.08.2020 10:41
-
4236fjfjfuf28.11.2022 07:13