z = 2 'знаменательn = 10 'количество выводимых значенийx = zFor i = 1 to (n + 1) Range("A" + CStr(i)) = x x = x * zNext i