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

282

371

Посмотреть ответы 2

Ответы на вопрос:

DeadFox2013

Информатика

4,6(19 оценок)

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.