Тут ошибка. Исправьте пж. program abc; var n,i: integer; s:real; begin readln(n); for...

Question

Тут ошибка. Исправьте пж.
program abc;
var n,i: integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/sqr(2*n+1);
write(‘s= ‘, s);
end.
Само задание.
Дано натуральное число n Вычислить.
S=1/3^2+1/5^2+1/7^2+...+1/(2n+1)^2

Answer 1

Ошибка в строке
write(‘s= ‘, s);

вместо ‘ надо ставить  '

program abc;

var
  n, i: integer;
  s: real;

begin
  readln(n);
  for i := 1 to n do
    s := s + 1 / sqr(2 * i + 1);
  write('s= ', s);
end.

Comments

Я на листе пишу, тут нет разницы.

---

Мне говорят, что в уравнении вместо n i вставить.

---

правильно говорят

Answer 2

Var n,i: integer;
s:real;
begin
readln(n);
i:=3;
while i<= (2*n+1) do<br>begin
s:=s+(1/sqr(2*i+1));
i:=i+2
end;
writeln('s= ', s)
end.