Viết chương trình tính xem số nguyên dương nhập vào có phải số nguyên tố không?

0 bình luận về “Viết chương trình tính xem số nguyên dương nhập vào có phải số nguyên tố không?”

1. program BiBo212;
   uses crt;
   var i,n :longint; KT :boolean;
   begin
           clrscr;
           write(‘Nhap so n: ‘);readln(n);
           KT:=true; //Coi n la snt;
           if n<2 then KT:=false
                  else For i:=2 to n-1 do
                       if n mod i=0 then
                           begin
                                   KT:=false;
                                   break;
                           end;
           if KT=true then writeln(”,n,’ la so nguyen to’)
           else writeln(”,n,’ khong phai so nguyen to’);
           readln;
   end.

   Bình luận

2. uses crt;
   var i,n:longint;
   begin
   clrscr;
      repeat
      write(‘Nhap 1 so:’); readln(n);
      until n>=0; i:=2;
      while (n>2)and(n mod i<>0) do inc(i);
      if i=n then writeln(‘Day la so nguyen to’)
      else writeln(‘Day khong phai la so nguyen so’);
      readln
   end.

   Một số text cho bạn tham khảo:

   

   Bình luận