Найти N-й член последовательности 1, 2, 4, 5, 10, 100, 101, 202, 40804, 40805, ...

Начало программы;

объявление переменных n, a, b, c числа типа Double;

начал;

вывод: введите число - n-й элемент последовательности;

ввод: число n;

b приравниваем к 1;

цикл пока a не равно n делать

если a не равно n то начало: b = b * 2; a:=a+1; конец;

если если a не равно n то начало: b:=b*b; a:=a+1; конец;

если если a не равно n то начало: b:=b+1; a:=a+1; конец;

конец цикла;

вывод: число находящееся на месте n месте = = > d;

конец программы.