сделать программу в паскале по вычислению сколько рулонов нужно потратить на одну стену и сколько это будет стоить. Нужно ввести будет ширину и длину стенв, а также, ширину, длину и стоимость одного рулона обоев
More Questions From This User See All
сделать программу в паскале по вычислению сколько рулонов нужно потратить на одну стену и сколько это будет стоить. Нужно ввести будет ширину и длину стенв, а также, ширину, длину и стоимость одного рулона обоев
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.