Question

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

Answer 1

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