vct nhập vào một số N và cho biết đó có phải là số nguyên tố hay không

0 bình luận về “vct nhập vào một số N và cho biết đó có phải là số nguyên tố hay không”

1. program hello;

   uses crt;

   var i,n: integer

   begin

        clrscr;

        writeln(‘nhap n’); readln(n);

        if n<= 1 then writeln(‘n ko la snt’) else

        begin

             i:=2;

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

             if i = n then writeln(‘n,’la snt’) 

             else writeln(‘n,’ko phai snt’);

        end;

        readln;

   end.

             

   Bình luận

2. program ct;

   uses crt;

   var kt,n:integer;

   begin clrscr;

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

      if n mod n=0 and n mod 1=0 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