Помогите пожалуйста! завтра уже сдавать

Question

Помогите пожалуйста! завтра уже сдавать

---

Answer 1

var 
  i, k: integer;

begin
   for i := 1 to 4 do
    k += i;
  writeln(k);
end.

var
  n, i: integer;
  k: real;  
begin
  readln(n);
  for i := 2 to n do
    k += (i mod 2 = 0 ? 1 : -1) * (1 / i);
  writeln(k);
end.

var
  i: integer;
  k: real;  

begin
  for i := 2 to 600 do
     k += 1 / i;
   writeln(k);
end.