Question

Рассчитайте количество рулонов обоев, которые требуются для оклейки комнаты (длина рулонов 10.5 м, ширина 0.5 м) В виде программы в Pascal Нужна помощь срочно, помогите:)

Answer 1

Program room;uses crt;var a, b, h : integer; v, s, l, k : real;begin  write('Введите длину, ширину и высоту комнаты : ');  readln(a, b, h);  l:= 10.5;  k:= 0.5;  v:= a * b * h;  s:= l * k;  writeln('Ответ : ',v/s :5:2);end.