Начали писать программы в Паскаль, и надо как то оформить задачу:

Поклейка прямоугольной стены.

Длина стены - a.

Высота - b.

Рулоны 12 (длина) на 1 (ширина)

Цена 1 рул. - k рул.

Нужно узнать на всю стену - ?

Question

Генуха

2 марта, 18:52

+1

Ответы (1)

Знаете ответ на вопрос?

Василий · Answer 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.