Ответы на вопрос:
Var x,y,z,x1,y1,z1: integer; begin write('введите высоту рации=> '); readln(x); write('введите высоту рации=> '); readln(y); write('введите высоту рации=> '); readln(z); write('введите высоту чемодана=> '); readln(x1); write('введите высоту чемодана=> '); readln(y1); write('введите высоту чемодана=> '); readln(z1); if ((x< x1) and (y< y1) and (z< z1)) then writeln('помещается') else writeln('не помещается'); end.
Популярно: Информатика
-
tanaletinaaaaa28.09.2020 03:27
-
marulina26.02.2021 04:47
-
никита434209.02.2022 22:31
-
benslip1306.06.2021 17:50
-
Lunitoes28.07.2021 06:38
-
FeliceMell24.10.2021 08:35
-
МОМОГИТИ128.04.2021 02:59
-
саша24090402.05.2023 05:49
-
mila1711121.02.2022 13:29
-
СВЕТЛАНУШЕНЬКА18.04.2023 19:30