Viết chương trình nhập vào số nguyên n và kiểm tra số nguyên đó có phải là số nguyên tố không ?

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

1. Program Hotboy ;

   Uses crt;

   Var n, i: integer;

       Kt: boolean;

   begin

      Kt:=true;

   Write(‘Nhap n tu ban phim : ‘);

   Readln(n);

      For i:= 2 to n – 1 do if( n mod i = 0) then 

      Kt :=false;

      If Kt then write(n,’ la so nguyen to’)

      Else

      Write(n, ‘ khong la so nguyen to’);

      Readln

   End.

   Bình luận

2. program so_nguyen_to;

   uses crt;

   var i,n,dem:integer;

   begin clrscr;

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

        dem:=0;

      for i:=1 to n do

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

      if (n<2) or (dem<>2) then writeln(n, ‘khong phai la so nguyen to’) else

      if dem=2 then writeln(n, ‘la so nguyen to’);

   readln;

   end.

   Học tốt!

   Bình luận