Kiểm tra tính nguyên tố của số nguyên dương N

0 bình luận về “Kiểm tra tính nguyên tố của số nguyên dương N”

1. program SONGUYENTO;

   uses crt;

   var a,b,i: integer;

   BEGIN

   clrscr;

   Write(‘Nhap so nguyen duong bat ki: ‘); readln(a);

   b:=1;

   for i:=1 to (a div 2) do

   if a mod i = 0 then b:=b+1;

   if b=2 then writeln(‘Day la so nguyen to’)

   else writeln(‘Day khong la so nguyen to’);

   readln;

   END.

   Bình luận