сделать программу в паскале по вычислению сколько рулонов нужно потратить на одну стену и сколько это будет стоить. Нужно ввести будет ширину и длинустенв, а также, ширину, длину и стоимость одного рулона обоев
var a, b, a1, b1, cost, w, h: integer; begin readln(a, b, a1, b1, cost); w := a div a1; if a mod a1 <> 0 then inc(w); h := b div b1; if b mod b1 <> 0 then inc(h); writeln(w * h); writeln(w * h * cost); end.
