Question

Нужна ! дана заданы размеры а, в прямоугольного отверстия и размеры х, y, z кирпича. определить пройдет ли кирпич через отверстие. вот решение,нужно его написать без crt program z2_37; uses crt; label 1; var m,a,b,x,y,z: real; begin clrscr; write ('размеры отверстия a,b='); read(a,b); write ('размеры кирпича x,y,z='); read(x,y,z); if a> b then begin m: =a; a: =b; b: =m end; if x> y then begin m: =x; x: =y; y: =m end; if x> z then begin m: =x; x: =z; z: =m end; if y> z then begin m: =y; y: =z; z: =m end; if (x> =a) or (y> =b) then write('кирпич не пройдет через отверстие') else write('кирпич пройдет через отверстие'); 1: readkey; end.

Answer 1

Var a,b,x,y,z,m: real;
Begin
Write ('Размеры отверстия a,b=');
Read(a,b);
Write ('Размеры кирпича x,y,z=');
Read(x,y,z);
if a>b then begin m:=a; a:=b; b:=m end;
if x>y then begin m:=x; x:=y; y:=m end;
if x>z then begin m:=x; x:=z; z:=m end;
if y>z then begin m:=y; y:=z; z:=m end;
if (x>=a) or (y>=b) then
write('Кирпич не пройдет через отверстие')
else
write('Кирпич пройдет через отверстие');
end.

Пример:
Размеры отверстия a,b=3 4
Размеры кирпича x,y,z=4 3 2
2 3 4
Кирпич пройдет через отверстие