Question

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

Answer 1

PascalABC.NET

Ответ:

• begin
• var 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 => Достаточно.