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

Question

Информатика

Борюха

31 января, 13:12

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

+5

Ответы (1)

Знаете ответ?

Соня · 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.