Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Выяснить, пройдёт ли кирпич с рёбрами 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
Write(Пролезет)
Else
Write(Не пролезет);
End.