Question

Решить задачу в QBasic
Даны 2 конверта прямоугольной формы с длинами сторон a,b и c,d.Определить,можно ли положить один конверт в другой

Answer 1

INPUT "a="; A
INPUT "b="; B
INPUT "c="; C
INPUT "d="; D
IF (A <= C AND B <= D) OR (A <= D AND B <= C) THEN S$ = "YES"
IF (A >= C AND B >= D) OR (A >= D AND B >= C) THEN S$ = "YES"
IF S$ <> "YES" THEN S$ = "NO"
PRINT S$
Проверку условия можно бы в одной строке сделать, но уж больно длинная получается. Поэтому разбил на две. Если хочешь, объедини.