Var a1,a2,b1,b2:integer; begin Readln(a1,a2,b1,b2); //Площадь первого прямоугольника - S1=a1b1, площадь второго - S2=a2b2; чтобы второй полностью поместился в первый, его площадь должна быть меньше либо равна площади первого// if a1*b1>=a2*b2 then Writeln('Можно вписать') else Writeln('Нельзя вписать'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
