Напишите программу которая выполняет значение функции y= 1/(x+1)
от 0 до 6

Var   x:integer;BeginWriteLn('f(x) = 1/(x+1)');For x:= 0 to 6 do    WriteLn('f(',x,') = ',1/(x+1));End.Результат работы программы:f(x) = 1/(x+1)f(0) = 1f(1) = 0.5f(2) = 0.333333333333333f(3) = 0.25f(4) = 0.2f(5) = 0.166666666666667f(6) = 0.142857142857143

var i: integer;begin  for i:=0 to 6 do  writeln('y(',i,') = ',1/(i+1):4:2);end.y(0) = 1.00y(1) = 0.50y(2) = 0.33y(3) = 0.25y(4) = 0.20y(5) = 0.17y(6) = 0.14