Определить количество рулонов обоев - Pascal

Формулировка задачи:

Пожалуйста,помогите с задачей: Определить количество рулонов обоев, необходимых для оклейки 1, 2, 3 и т. д. комнат.


textual

Код к задаче: «Определить количество рулонов обоев - Pascal»

const
  a = 10;
  b = 20;
  c = 30;{размеры комнаты}
  a1 = 10;
  b1 = 5;{размеры рулона}
 
var
  s, k, x: integer;
 
begin
  s := a1 * b1;{площадь рулона}
  k := a * b;{площадь пола}
  x := k div s;
  k := b * c;{площадь двух стен}
  x += 2 * (k div s);
  k := a * c;{площадь двух других стен}
  x += 2 * (k div s);
  x := x * 4;{4 комнаты}
  writeln('нужно рулонов ', x);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.800 из 5

Источник