Сколько нужно рулонов обоев для оклейки комнаты - Pascal

Формулировка задачи:

Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров, если ширина рулона k см, а длина 10 метров. Известны так же S1 и S2 – площади дверных и оконных проемов.

Код к задаче: «Сколько нужно рулонов обоев для оклейки комнаты - Pascal»

textual
var s,m,n,h,k,s1,s2 : Real;
begin
  Write('m ='); ReadLn(m);
  Write('n ='); ReadLn(n);
  Write('h ='); ReadLn(h);
  Write('k ='); ReadLn(k);
  Write('s1='); ReadLn(s1);
  Write('s2='); ReadLn(s2);
  s := (m*n*h-s1-s2)*10/k;
  if rount(s) < s then s := s + 1;
  WriteLn(Trunc(s) );
end.

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ