Какую сумму необходимо потратить на ремонт, если цена одного рулона обоев 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.
Объяснение кода листинга программы
- Переменные
a
,b
иk
объявлены как слово (word), что означает, что они могут хранить только целочисленные значения. - Программа считывает значения переменных
a
,b
иk
с помощью функции readln(). - Функция frac() используется для получения дробной части от результата деления переменных
a
иb
. - Если дробная часть от результата деления не равна нулю, то значение переменной
a
увеличивается на единицу. - В противном случае значение переменной
a
остается без изменений. - Значение переменной
a
умножается на значение переменнойk
. - Результат записывается в файл с помощью функции write().
- Результатом выполнения программы будет сумма, необходимая для ремонта, выраженная в рулонах обоев.