Заданы размеры А, В прямоугольного отверстия и размеры Х, Y, Z кирпича. Определите, пройдет ли кирпич через отверстие. Помогите пожалуйста. Нужна через паскаль.
Answers & Comments
Kolsky
Var a,b,x,y,z:integer; begin readln(a,b,x,y,z); if ((a>=x)and(b>=y)) or ((a>=y)and(b>=x)) or ((a>=x)and(b>=z)) or ((a>=z)and(b>=x)) or ((a>=y)and(b>=z)) or ((a>=z)and(b>=y)) then write('Пройдёт') else write('Не пройдёт');end.
Answers & Comments
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
then write('Пройдёт')
else write('Не пройдёт');end.