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?

0 bình luận về “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?”

1. 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 í

   Bình luận

2. 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.

   Bình luận