Lập trình nhập vào 1 số n, cho biết n có phải là số nguyên tố hay không? (Lưu ý chỉ sử dụng vòng lặp while…do)

0 bình luận về “Lập trình nhập vào 1 số n, cho biết n có phải là số nguyên tố hay không? (Lưu ý chỉ sử dụng vòng lặp while…do)”

1.  Var  n, i : integer;

        Begin

             write(‘Nhập số n = ‘);

             readln(n);

             i := 2;

             while  (n  mod  i <> 0) and (i < n)  do

                 i := i + 1;

             if  i < n  then  write(n, ‘ là số nguyên tố.’)

             else  write(n, ‘ là hợp.’)

             readln;

        End.

   Bình luận

2. program oken;
   uses crt;
   var n,d,i: longint;
   begin
       clrscr;
       write(‘Nhap n: ‘); readln(n);
       i:=2; d:=1;
       while (i<(n div 2)) do
           if n mod i=0 then
               begin
                   d:=d+1;
                   break;
               end;
       if d=1 then 
           writeln(n,’ la so nguyen to’)
       else
           writeln(n,’ khong phai la so nguyen to’);
       readln;
   end.

   Bình luận