Cделать ** языке паскаль Улитка за день залезает вверх по дереву ** V м, а за ночь...

Question

Cделать на языке паскаль
Улитка за день залезает вверх по дереву на V м, а за ночь спускается на U м. Высота дерева H м. За сколько дней D улитка поднимется на вершину дерева?

Answer 1

Var
  v, u, h, d, vp: longint;

begin
  readln(v, u, h);
  vp := v - u;
  d := h div vp;
  if (h mod vp <> 0) then
    inc(d);
  writeln(d);
end.