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

Question

Информатика

Антиох

26 ноября, 09:45

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

+2

Ответы (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.