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

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

Программа решена верно. Просто необходимо было дописать одну строчку. Program z1;var a: real;begin Writeln ( ' введите число a'); readln(a); a := Ceil(1/(a-1)); writeln(a, ' -> ',1+1/a);end. Ошибка неизвестный ИДЕНТИФИКАТОР обычно говорит о том что допущена орфографическая ошибка.

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

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