Сделать программу в паскале по вычислению сколько - вопрос №1404535 от Fixa 16.11.2020 02:05

Question

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

Fixa · Answer

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.