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

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

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

Высота - b.

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

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

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

Question

Тимофей

25 мая, 21:10

+2

Ответы (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.