Запишите алгоритм на Паскале, пожалуйста.

Var s: real;
  begin
  write(Введите n: );
  var n := ReadInteger;
s:=1;
  for var i:=0 to n do begin
  s:=s+1/(2*N+1);
  end;
writeln(Ответ , s);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!