Question

РЕШИТЕ ПОЖАЛУЙСТА СРОЧНО НУЖНО!!!!!!!!

Answer 1

program p1;

uses crt;    выводит окошка, где будет результат

var a,n,i:integer;

  s:real;

begin  

read(n);

  s:=0;

 a:=0;

 for i:=1 to n do begin

 a:=a+2;    

  s:=s+1/a;

  end;

  write(s);

  end.