Числа Мерсена

[Vampirius]

Задание: Дана последовательность оканчивающаяся 0. Не используя массивы найти в этой последовательности все простые числа Мерсена (N=2^i-1)
и посчитать их кол-во.
Среда выполнение: консольный делфи

Не могу осуществить проверку является ли число простым числом мерсена или нет

[TwiX]

В делфи 2^n - не означает возведение в степень

[Vampirius]

я к тому что эта же функция через обратный цикл для н ( от 20 до 1) и експоненту не хочет работать.

[LeBron]

Не простые числа Мерсенна, а "просто числа Мерсенна" (простота не важна)? Прибавляем единицу и проверяем двоичный логарифм. Если отличается от целого числа в пределах эпсилона - плюс к счетчику, иначе нет.

[Vampirius]

Важна...
я просто плохо представляю как на паскале записать

[LeBron]

Если важна, то почему это не указано вначале?
С записью чего конкретно возникают проблемы? Словами скажите, что хотите написать - я переведу, или кто-то другой.

[Vampirius]

Поправил...

[LeBron]

На какие ограничения ориентироваться? Можно просто забить первые надцать чисел в память и сравнивать. А сами числа сгенерить в цикле. Тогда не будет необходимости кажый раз проверять число на простоту "более умным" алгоритмом. Или более торможенным, если на умный не хватит ума.
Такой вариант подходит?

[Vampirius]

Увы нет, нужен сам алгоритм решение для которого в теории можно посчитать любые числа...

[ОДИНОЧЕСТВО В СЕТИ]

алгоритм решение для которого в теории можно посчитать любые числа...

1)Вводим число
2)Прибавляем к нему единичку
3)Проверяем является ли полученное число степенью 2
4)Если нет выход( это число не является числом Мерсенна)
5)Если да - то проверяем является ли полученная степень простым числом
6)Если нет - то выход(это число является числом Мерсенна но не является простым)
7)Если да - то введенное число-простое число Мерсенна
является ли число простым

function issimple(n:longint):boolean;
  var
  i:integer;
  begin
   issimple:=true;
   for i:=3 to round(sqrt(n)) do
   if n mod i= 0 then begin issimple:=false;break;end;
  end;

является ли число степенью 2

function Step2(n:longint):boolean;
var a:longint;
begin
a:=2;
while a<n do
a:=a*2;
if a=n then Step2:=true
else Step2:=false;
end;