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