viết chương trình nhập số N. Kiểm tra N có phải là số nguyên tố hay ko nhanh nhá!! Pascal IDE nhé!

0 bình luận về “viết chương trình nhập số N. Kiểm tra N có phải là số nguyên tố hay ko nhanh nhá!! Pascal IDE nhé!”

1. Program SNT;

   Uses crt;

   Var n , i :Integer;

   BEGIN

   Write(‘Nhap vao mot so:’);

   Readln(n);

   i := round( sqrt(n) );

   If( n mod i <> 0) then

         Writeln(‘ N la so nguyen to’)

   Else

         Writeln(‘ N khong la so nguyen to’);

   Readln;

   end.

   Bình luận

2. `=>` Tặng bạn

   Program songuyento;

   Var

          n,d,m:longint;

   Begin

   Clrscr;

   write(‘n=’);

   Readln(n);

   n:=0;

   For d:=1 to n do

   If n mod d = 0 then

   m:=m+1;

   If m=2 then

   write (‘n la so nguyen to’);

   Readln;

   End.

   Bình luận