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

Question

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

---

Comments

на паскале записать ?

---

да

---

Спасибо большое

---

число повторений вводится само да ?

---

вроде да

---

дп

---

да*

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.