Auritus
5 год назад
по следующим алгоритмам составьте формулы для вычесления значений игрикак х прибавить 1, обозначить результат В1разделить 1 на В1, обозначить результат В2из В2 вычесть 1, обозначить результат В3к В2 прибавить 1, обозначить результат В4разделить В3 на В4, обозначить результат В5из В5 вычесть 1, обозначить результат у
ОТВЕТЫ
Adler Hilke
Oct 24, 2020
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.
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.
589
Смежные вопросы:
