Question

сделать программу в паскале по вычислению сколько рулонов нужно потратить на одну стену и сколько это будет стоить. Нужно ввести будет ширину и длину стенв, а также, ширину, длину и стоимость одного рулона обоев

 

Answer 1

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.