Cho chương trình nhận biết 1 số tự nhiên n được lập từ bàn phím có phải số nguyên tố hay không hãy sắp xếp lại chương trình sau cho đún

0 bình luận về “Cho chương trình nhận biết 1 số tự nhiên n được lập từ bàn phím có phải số nguyên tố hay không hãy sắp xếp lại chương trình sau cho đún”

1. program ct;

   uses crt;

   var i,n,d:integer;

   begin clrscr;

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

        d:=0;

      for i:=1 to n do

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

      if d=2 then writeln(n,’ la so nguyen to’)

                  else writeln(n,’ khong la so nguyen to’);

   readln;

   end.

   Học tốt!

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   if n<=1 then writeln(‘N khong phai so nguyen to’)   

   else

      begin

           i:=2;

           while n mod i<>0 do i:=i+1;

                if i=n then writeln(n,; la so nguyen to’) else writeln(n,’ khong la so nguyen to’);

   end;

   readln

   end.

   Bình luận