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.

Answer 2

здесь ошибка выходит исправь те пожалуста

Answer 3

не, тут ошибка в Ceil похоже. Если (1+1/a) - это целое число то нужно вернуть следующее целое, а Ceil вернет само число. Для дробных чисел все Ok