Ответ: здесь ошибка выходит исправь те пожалуста
Ответ: Программа решена верно. Просто необходимо было дописать одну строчку. 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.