Ребят помогите решить задачу!) Даны размеры комнаты. 1) Найти сколько рулонов обоев...

Question

Ребят помогите решить задачу!)
Даны размеры комнаты.
1) Найти сколько рулонов обоев нужно для поклейки стен ( ширина 1 м , длина 10 м).В комнате 3 окна , одно окно площадью 2 м^2, одна дверь площадью 3 м^2.
2)Вычислить сколько метров необходимо для покрытия пока , если ширина линолиума 1.5 м^2.Сколько денег заплатили за обои и за линилиум?.Цена одного рулона и 1м^2 линолиума вводится с помощью клавиатуры.(Packal)

Comments

Размеры комнаты вводятся с клавиатуры?

---

Да

---

или нет , нз если честно

Answer 1

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.

Comments

Я не проверял на правильность