uses crt;
var i,m,dem:longint;
function ktnt(a:longint):boolean;
var i:longint;
begin
i:=2;
while a mod i<>0 do inc(i);
ktnt:=i=a;
end;
begin
clrscr;
repeat write('M=');readln(m); until(2<m)and(m<2018);
i:=1;
repeat
inc(i);
if ktnt(i) then inc(dem);
until dem=m;
writeln(i);
readln
end.
///////////////////////////////////////////
Giải thích:
Nhập:nhập cho đến khi thỏa mãn điều kiện với repeat until
Tăng i lên nếu i là số nguyên tố thì tăng đếm lên, cứ là việc này cho đến khi dem =m tức là i là số nguyên tố thứ m.
Sau đó xuất i!
Nếu có gì không hiểu hay code mình sai thì để lại bình luận nhé!
Một số text cho bạn tham khảo:
