Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. определить, подойдет ли данный четырехугольный брусок для этого гнезда.

program denisden4ik; uses crt; var   a1,a2,b1,b2: real; begin  writeln('введите размеры вырезки ');   write('ширина '); read(a1);   write('длина '); read(a2);   writeln('введите размеры сечения бруска ');   write('ширина '); read(b1);   write('длина '); read(b2);   writeln();   if ((a1=b1) and (a2=b2)) or ((a1=b2) and (a2=b1)) then      writeln('этот брусок подойдет')          else writeln('этот брусок не подойдет'); end.

если для этого нужно написать программу, то смотри(паскаль):

uses crt; var a,b,c,d,p,p1: real; beginclrscr; write('длина вырезки '); read(a); write('ширина вырезки '); read(b); p: =2*(a+b); write('длина сечения бруска '); read(c); write('ширина сечения бруска '); read(d); p1: =2*(c+d);

writeln;

if (p=p1) thenbeginif (c=a) or (c=b) then write('подойдет')else write('не подойдет'); endelse write('не подойдет'); end.

Графической информации

Объяснение: