Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

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

Длина стены - 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.