Основной тест программы
Это для приложения с формой. Для консольного приложения нужно заменить Memo1.Lines.Add(pn) на вывод для консольного приложения с переводом строкиКод:Memo1.Lines.Clear; n=1; while n*2^n+1<100 do Inc(n); while n*2^n+1<1000 do begin pn=n*2^n+1; Inc(n); Memo1.Lines.Add(pn); end;
хе, для консольного я только С++ помню >__<
Возможно придется подключить модуль Math в секции Uses или заменить Inc(n) на n=n+1