PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((

Question

PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((

---

Comments

помогите(((

Answer 1

Var
i,n: integer; 
a:real;
begin 
n := 1; 
readln(i); 
while n <= i do  <br>begin
a:=n/(n*n);     
n:=n+1;   
writeln(a); 
end;
end.