Сделать программу в паскале по вычислению сколько рулонов нужно потратить на одну стену и сколько это будет стоить. нужно ввести будет ширину и длину стенв, а также, ширину, длину и стоимость одного рулона обоев
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.
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.