Помогите с Паскалем. var w:integer A,s:real begin s:=0 w:=1; s:=s=1/w w:=w+1+s write(n/w)...

Question

Помогите с Паскалем. var w:integer A,s:real begin s:=0 w:=1; s:=s=1/w w:=w+1+s write(n/w) w=5 end. тут нужно исправить ошибку.

Answer 1

Ужс.

var w,s:real;

begin

   s:=0;

   w:=1;

   s:=s+1/w;

   w:=w+1+s;

   write((s/w):8:3);

end.

---

Comments

Спасибо!!!