Ребят помогите решить задачу!) Даны размеры комнаты. 1) Найти сколько рулонов обоев нужно для поклейки стен ( ширина 1 м , длина 10 м).В комнате 3 окна , одно окно площадью 2 м^2, одна дверь площадью 3 м^2. 2)Вычислить сколько...
Ребят помогите решить задачу!)
Даны размеры комнаты.
1) Найти сколько рулонов обоев нужно для поклейки стен ( ширина 1 м , длина 10 м).В комнате 3 окна , одно окно площадью 2 м^2, одна дверь площадью 3 м^2.
2)Вычислить сколько метров необходимо для покрытия пока , если ширина линолиума 1.5 м^2.Сколько денег заплатили за обои и за линилиум?.Цена одного рулона и 1м^2 линолиума вводится с помощью клавиатуры.(Packal)
Гость
Ответ(ы) на вопрос:
Гостьprogram oboiilinoleum;
var a, b, h, wa, wb, o, l, co, cl:integer;
begin
write('Введите длину комнаты');
readln(a);
write('Введите ширину комнаты');
readln(b);
write('Введите высоту комнаты');
readln(h);
write('Введите стоимость одного рулона обоев');
readln(o);
write('Введите стоимость одного рулона линолеума');
readln(l);
co:=(2*(a*h + b*h) - 6 - 3)/10;
cl:=trunc(a*b/1.5);
writeln('Количество рулонов, необходимое для поклейки стен комнаты: ', co);
writeln('Для покрытия пола линолеумом необходимо ', cl, ' метров линолеума');
writeln('За линолеум нужно заплатить ', cl*l, ', а за обои - ', co*o);
end.
Не нашли ответ?
Похожие вопросы