Question

Дано число а (1<а<=1.5). Среди чисел 1+1/2, 1+1/3, ... найти первое,меньше а

Answer 1

Var a: real;
begin
  readln(a);
  a := Ceil(1/(a-1) + 1e-15);
  writeln(a, ' -> ',1+1/a);
end.