Нужно написать ** паскале Два прямоугольника заданы длинами сторон. Определите можно ли...

Question

Нужно написать на паскале
Два прямоугольника заданы длинами сторон. Определите можно ли первый прямоугольник целиком разместить во втором

Comments

https://znanija.com/task/27328730

Answer 1

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.

Comments

:))))) Видел еще одно такое же "решение" на С