ПОМОГИТЕ решить ** Pascal. Зарание спасибо)) Хозяин хочет обклеить обоями длинную стену в...

Question

ПОМОГИТЕ решить на Pascal. Зарание спасибо))
Хозяин хочет обклеить обоями длинную стену в своем доме. Длина этой стены =а м., а высота- b м. Рулон обоев имеет длину 12 м и ширину с м. Сколько будут стоить обои для всей стеныё если цена одного рулона k гривень?

Comments

А наклеиваемая полоска обоев должна быть непрерывной сверху вниз или можно её из нескольких кусочков склеивать?

Answer 1

PascalABC.net (Ceil - округляет до целого в большую сторону)

var
  a,b,c,k,s:real;
  n:integer;
begin
write('Введите a,b,c,k: ');
readln(a,b,c,k);
n:=Ceil((a*b)/(12*c));
s:=n*k;
writeln(s,' гривен');
end.