Số Mersen Một số nguyên tố được gọi là Mersen nếu nó có thể biểu diễn dưới dạng 2 p -1 trong đó p cũng là số nguyên tố. Cho số tự nhiên N hãy tìm tất cả số Mersen nhỏ hơn. Yêu cầu: Tìm tất cả các số Mersen nhỏ hơn N.. Dữ liệu vào: Một số nguyên dương N Giới hạn: (1 n 10 6 ). Kết quả: Các số Mersen nhỏ hơn N, Nếu không tìm được ghi KHONGCO. Ví dụ: Dữ liệu vào Kết quả 100 3 7 31

uses crt,math;
var n,i,k:longint;

function ngto(n:longint):boolean;
var i:longint;
begin
if n<2 then exit(false);
for i:=2 to round(sqrt(n)) do
 if n mod i=0 then exit(false);
exit(true);
end;

function kt(n:longint):boolean;
var i:longint;
begin
i:=1;
while 2**i-1<n do
 i:=i+1;
if 2**i-1<>n then exit(false)
else
kt:=ngto(i)=true;
end;

begin
clrscr;
readln(n);
k:=0;
for i:=1 to n do
 if ngto(i) then
 if kt(i) then
 begin
 k:=k+1;
 write(i,' ');
 end;
if k=0 then write('KHONGCO');
readln
end.