Viết chương trình nhập vào 1 số nguyên N và cho biết N có phải số nguyên tố không Giúp mình

0 bình luận về “Viết chương trình nhập vào 1 số nguyên N và cho biết N có phải số nguyên tố không Giúp mình”

1. Program BTH;
   uses crt;
   var n:word;
   i,k:longint;
   Begin
           clrscr;
           Write(‘Nhap so can kiem tra: ‘);readln(n);
           k:=0;
           For i:=2 to n-1 do
           Begin
                   If n mod i=0 then k:=k+1;
           end;
           If (n=1) or (n=0) then writeln(n,’ khong phai la so nguyen to’) else
           If k=0 then writeln(n,’ la so nguyen to’) else
           If k>0 then writeln(n,’ khong phai la so nguyen to’);
           readln;
   end.

   Trả lời