Выяснить, пройдёт ли кирпич с рёбрами a, b, c в квадратное отверстие со стороной x.
Program help; Uses Crt; Var a, b, c, x : Byte; Begin Write('Введи a, b, c, x: '); Readln(a, b, c, x); If ((a <= x) and (b <= x)) or ((a <= x) and (c <= x)) or ((b <= x) and (c <= x)) then<br> Write('Пролезет') Else Write('Не пролезет'); End.
Там надо составить несколько условий для прохода этого кирпича в отверстие. Т.е. если сторона A проходит в это отверстие и если стороны B и С тоже проходят значит пройдет и так несколько условий. для каждой стороны получаеться