viết chương trình nhập vào số nguyên dương N kiểm tra xem N có phải là số nguyên tố hay không

0 bình luận về “viết chương trình nhập vào số nguyên dương N kiểm tra xem N có phải là số nguyên tố hay không”

1. *Cách 1: Bằng cách đếm ước

   program kiemtra;

   uses crt;

   var n,i,d:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          d:=0;

          for i:=1 to n do

                 if n mod i=0 then d:=d+1;

          if d=2 then write(‘N la so nguyen to’)

                 else write(‘N khong phai so nguyen to’);

          readln;

   end.

   *Cách 2: Dùng while…do nếu số nào lớn hơn 1 và khác n mà n chia hết thì không phải số nguyên tố

   program kiemtra;

   uses crt;

   var n,i:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          i:=2;

          while n mod i<>0 do

                 i:=i+1;

          if i<>n then write(‘N la so nguyen to’)

                 else write(‘N khong phai la so nguyen to’);

          readln;

   end.

   *Dùng true/false;

   program kiemtra;

   uses crt;

   var n,i:integer;

         kt:boolean;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          kt:=true;

          if n<2 then kt:=false;

          for i:=2 to n div 2 ddo

                 if n mod i=0 then kt:=false;

          if kt=true then write(‘N la so nguyen to’)

                 else write(‘N khong phai la so nguyen to’);

          readln;

   end.

   Bình luận

2. $#MonBen$
   Trả lời:

    Var n,d,k:longint;. Begin Clrscr;. write(‘n=’);. Readln(n);. k:=0;. For d:=1 to n do.

   $\text{Xin hay nhất cho MonBen có động lực nhé}$

   Bình luận