по следующим алгоритмам составьте формулы для вычесления значений игрика

к х прибавить 1, обозначить результат В1
разделить 1 на В1, обозначить результат В2
из В2 вычесть 1, обозначить результат В3
к В2 прибавить 1, обозначить результат В4
разделить В3 на В4, обозначить результат В5
из В5 вычесть 1, обозначить результат у

неее

надо составить формулу

Ну вон же формулы, бери.

B1:=x+1 и т.д.

Я сразу программу составил, которая вычисляет y

Program zad1;Varx,B1,B2,B3,B4,B5,y:real;beginwriteln('Введите X');readln(x);B1:=x+1;B2:= 1/B1;B3:= B2-1;B4:= B2+1;B5:= B3/B4;y:= B5-1;writeln('Ответ: ',y:6:2);end.