Kiểm tra xem 1 số cỏ phải là số nguyên tố hay không.dùng thủ tục AI làm mik vote 5sao vs tym

0 bình luận về “Kiểm tra xem 1 số cỏ phải là số nguyên tố hay không.dùng thủ tục AI làm mik vote 5sao vs tym”

1. uses crt;
   var n,i:longint;
   Procedure kt(var i:longint);

   begin
   i:=2;
   while(n>1)and(n mod i<>0)do inc(I);
   end;
   begin
   clrscr;
   write(‘Nhap 1 so: ‘);readln(n);
   kt(i); if i=n then writeln(‘Day la so nguyen to’)
   else writeln(‘Day khong la so nguyen to’);
   readln
   end.

   Bình luận

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

   Bình luận