Немогу разобраться (задача на for) Опции

[kvadrat]

Вот условие:

Вот попытка решить:

program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k);  {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.

[Bard]

Ну решить ты попытался но не совсем удачно... Я тебе помогу. Задача очень легкая вот главное не надо вычыслять i:=((-1)^(k+1))/(k*k) таким способом. Ведь надо просто проверить k четное или нет а дальше уже все. Вот и программа:

var
 m,k,n:integer;
 i,s:real;
begin
 readln(n); s:=0;
 for k:=1 to n do
  begin
   if odd(k) then m:=1  // функция odd() проверяет нечетность числа
                else m:=-1;
   i:=m/sqr(k);
   s:=s+i;
  end;
 writeln(s:0:5);
end.

Ну вот и все...

[andriano]

var
  m, k, n : integer;
  i, s : real;
begin
  readln(n);
  s := 0;
  m := 1;
  for k:=1 to n do begin
    s := s + m/sqr(k);
    m := -m;
  end;
  writeln(s:0:5);
end.