последовательность, элементы вычисляются по формуле An=N/(N+1) , N=1, 2..,20.

[Настёна_19]

Сформировать последовательность, элементы которой вычисляются по формуле An=N/(N+1) , N=1, 2..,20.

[andrewpalkin]

И что именно не получается ? Где код , который уже написала ?

[Настёна_19]

Var N:integer;
A:real;
begin
for N:=1 to 20 do
A:=N/(N+1);
writeln(A);

end.

[andrewpalkin]

Var N:integer;
A:real;
begin
  for N:=1 to 20 do
  begin
    A:=N/(N+1);
    writeln(A:3:3,'(N=',N,') ');
  end
end.

[Настёна_19]

спасибо большое