a=7;
x=1/10;
For[i=0,i<20,i++,
Print[N[x,100]," chyba:",N[1/a-x]];
x=x*(2-a*x)
]