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

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

1. Program Tin_hoc;

   Uses crt;

   Var i,n: longint;

          res: boolean;

   Begin

   Writeln(‘Nhap n: ‘); Readln(n);

   res:=true;

   For i:=2 to trunc(sqrt(n)) do

       If n mod i = 0 then res:=false;

   If res=false then write(n,’ khong phai la so nguyen to’)

   else write(n,’ la so nguyen to’);

   Readln

   End.

   Bình luận

2. Program nguyên_tố;

   Uses Crt;

   Var n,d,k:longint;

   Begin Clrscr;

   write(‘n=’);

   Readln(n);

   k:=0;

   For d:=1 to n do

   If n mod d = 0 then

   k:=k+1;

   If k=2 then

   write (‘n là số nguyên tố’);

   Readln;

   End.

   Bình luận