Задание:
Выяснить, пройдет ли кирпич с ребрами a, b, c в квадратное отверстие со стороной x.
Решение:
Program help; Uses Crt; Var a, b, c, x: Byte; BeginWrite ('Введи 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 Write ('Пролезет') Else Write ('Не пролезет'); End.
Знаете другой ответ?