Имеется N рулонов обоев, размеры каждого рулона (0.5*10) м. Достаточно ли их для оклейки стен комнаты, если периметр комнаты Р, высота Н, а площадь дверного проема и окон S (считать, что рисунок обоев позволяет использовать их полностью). Написать программу.

PascalABC.NETbeginvar O := 0.5*10; var N := ReadReal('Введите количество рулонов:'); var P := ReadReal('Введите периметр комнаты:'); var H := ReadReal('Введите высоту комнаты:'); var S := ReadReal('Введите площадь дверного проема и окон:'); Write(NewLine, 'Обоев ', O*N >= P*H-S ?'':'не', 'достаточно.'); end.

Пример работы:

1) Есть 20, надо 25 => Недостаточно.

2) Есть 20, надо 20 => Достаточно.