Какую сумму необходимо потратить на ремонт, если цена одного рулона обоев K руб? - Pascal ABC

Узнай цену своей работы

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

Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна A и высота B. В рулоне 12 м обоев шириной 1 м. Какую сумму необходимо потратить на ремонт, если цена одного рулона обоев K руб? Обои продаются только целыми рулонами. Входные данные: Во входном потоке через пробел заданы три целых числа: A, B, K (0 < A, B, K < 30000). Выходные данные: Вывести единственное целое число. Пример входного файла (input.txt): 12 3 5 Пример выходного файла (output.txt): 15

Решение задачи: «Какую сумму необходимо потратить на ремонт, если цена одного рулона обоев K руб?»

textual
Листинг программы
var
a,b,k:word;
begin
readln(a,b,k);
if frac(a*b/12)<>0 then
a:=trunc(a*b/12)+1
else
a:=trunc(a*b/12);
write(a*k:0);
end.

Объяснение кода листинга программы

  1. Переменные a, b и k объявлены как слово (word), что означает, что они могут хранить только целочисленные значения.
  2. Программа считывает значения переменных a, b и k с помощью функции readln().
  3. Функция frac() используется для получения дробной части от результата деления переменных a и b.
  4. Если дробная часть от результата деления не равна нулю, то значение переменной a увеличивается на единицу.
  5. В противном случае значение переменной a остается без изменений.
  6. Значение переменной a умножается на значение переменной k.
  7. Результат записывается в файл с помощью функции write().
  8. Результатом выполнения программы будет сумма, необходимая для ремонта, выраженная в рулонах обоев.

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы