Question

Дано целое число n.  Вычеслить S=1/4+1/8+1/12+...+1/4n
Срочно надо ребята

Answer 1

var
  S: double;
  i, n: integer;  
begin
  readln(n);
  for i := 4 to 4 * n do
    S += 1 / i;
  writeln(s);
end.

Answer 2

Блок схему надо ребят