Viết CT nhập vào số N. Xét xem N có là số nguyên tố không

0 bình luận về “Viết CT nhập vào số N. Xét xem N có là số nguyên tố không”

1. program ct;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

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

   if n<=1 the writeln(N’ khong phai so nguyen to’) else

   begin

   i:=2;

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

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

   end;

   readln;

   end.

   Trả lời