Question

accept 5 nos. and print it ( computer chapter basic 256)​

Answer 1

Explanation:

Print "Give me a positive number" 

Input x 

Dim a(100) 

a[0]=x 

for n=1 to 10 

a[n]=.5*(a[n-1]+x/a[n-1]) 

print n; " "; a[n] 

next n