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

к х прибавить 1, обозначить результат В1

разделить 1 на В1, обозначить результат В2

из В2 вычесть 1, обозначить результат В3

к В2 прибавить 1, обозначить результат В4

разделить В3 на В4, обозначить результат В5

из В5 вычесть 1, обозначить результат у

Question

Информатика

Рустик

6 сентября, 20:52

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

к х прибавить 1, обозначить результат В1

разделить 1 на В1, обозначить результат В2

из В2 вычесть 1, обозначить результат В3

к В2 прибавить 1, обозначить результат В4

разделить В3 на В4, обозначить результат В5

из В5 вычесть 1, обозначить результат у

+4

Ответы (1)

Знаете ответ?

Таюта · Answer 1

Program zad1;

Var

x, B1, B2, B3, B4, B5, y:real;

begin

writeln ('Введите 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.