Viết ct nhập một số nguyên M từ bàn phím với 2 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết ct nhập một số nguyên M từ bàn phím với 2 Bình luận
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é!
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: