Вопрос от посетителя:
Используя циклы решить задачу в паскале:
Вычислить значение переменной у, при заданном значении n
Илюха отвечает:
Var
y: real;
x,n: integer;
Begin
Writeln(‘n=’);
Readln(n);
y:=0;
x:=0;
For x:=0 to n do
begin
y:=y+x/(x+2);
end;
Writeln(y:6:5);
end.