Немогу разобраться (задача на 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.

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