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

Question

Информатика

Корнилыч

8 февраля, 07:31

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

+3

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