Bài 1: Số nguyên tố là số có 2 ước là 1 và chính nó. Hãy viết chương trình con kiểm tra 1 số nguyên có là số nguyên tố hay không?
2 câu trả lời
program nguyen_to;
uses crt;
var n:integer;
{---CT-con---}
function ktnt(k:integer):boolean;
var i,d:integer;
begin
d:=0;
for i:=1 to k do
if k mod i=0 then d:=d+1;
if d=2 then ktnt:=true else ktnt:=false;
end;
{---CT-chinh---}
BEGIN
clrscr;
write('Nhap so can kiem tra: '); readln(n);
if ktnt(n)=true then write('La so nguyen to')
else write('Khong phai so nguyen to');
readln;
end.
program nguyen_to;
uses crt;
var n:integer;
{---CT-con---}
function ktnt(k:integer):boolean;
var i,d:integer;
begin
d:=0;
for i:=1 to k do
if k mod i=0 then d:=d+1;
if d=2 then ktnt:=true else ktnt:=false;
end;
{---CT-chinh---}
BEGIN
clrscr;
write('Nhap so can kiem tra: '); readln(n);
if ktnt(n)=true then write('La so nguyen to')
else write('Khong phai so nguyen to');
readln;
end
caauj em bảo viết hộ cậu í
