Начали писать программы в Паскаль, и надо как то оформить задачу: Поклейка прямоугольной стены. Длина стены - a. Высота - b. Рулоны 12 (длина) на 1(ширина) Цена 1 рул. -  k рул. Нужно узнать на всю стену - ?

Начали писать программы в Паскаль, и надо как то оформить задачу: Поклейка прямоугольной стены. Длина стены - a. Высота - b. Рулоны 12 (длина) на 1(ширина) Цена 1 рул. -  k рул. Нужно узнать на всю стену - ?
Гость
Ответ(ы) на вопрос:
Гость
var a,b,k,i:integer; begin readln(a,b,k); if a/12>b then i:=(a div 12)+1 else i:=b; writeln('Cena - ',k*i); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы