Регистрация
seregapomogite
04.03.2023 11:43
Информатика
Есть ответ 👍

Pascal: написать программу расчета количества рулонов обоев шириной d см, если известны длина, ширина, высота комнаты (a,b,c), размеры одного окна (m,n) и одной двери (p,k). ​дверь одна, окно тоже.

139
435
Посмотреть ответы 2

Ответы на вопрос:

yanakuzmina1
yanakuzmina1
4,8(14 оценок)

var

  a, b, c, d, l, m, n, p, k, r: integer;

  s, u: real;

begin

  writeln('оклейка комнаты обоями. все размеры в см.');

  write('укажи длину, ширину и высоту комнаты: ');

  readln(a, b, c);

  write('укажи ширину и высоту двери: ');

  readln(p, k);

  write('укажи ширину и высоту окна: ');

  readln(m, n);

  write('укажи длину и ширину рулона обоев: ');

  readln(l, d);

  s : = 2 * c * (a + b) - p * k - m * n; { площадь оклейки }

  u : = l * d; { площадь одного рулона }

  r : = trunc(s / u);

  if frac(s / u) > 0.05 then

    r : = r + 1;

  writeln('потребуется рулонов: ', r)

end.

крабик0507059
крабик0507059
4,6(60 оценок)

Копировать выделенный фрагмент текста

Объяснение:

Потому что чтобы скопировать,ты выделяешь текст,затем его вырезаешь и вставляешь куда нужно

Популярно: Информатика