viết phương trình nhập vào 1 số nguyên N. Kiểm tra N a)Là số chẵn hay lẽ. b) Có phải là số nguyên tố hay ko

0 bình luận về “viết phương trình nhập vào 1 số nguyên N. Kiểm tra N a)Là số chẵn hay lẽ. b) Có phải là số nguyên tố hay ko”

1. program ct;

   uses crt;

   var d,i,n:integer;

   begin

    clrscr;

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

     {——– cau a ——-}

         if n mod 2=0 then writeln(n,’ la so chan’)

                                 else writeln(n,’ la so le’)

     {——– cau b——-}

        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 phai so nguyen to’);

     readln

     end.

   Bình luận

2. program ct;

   uses crt;

   var i,n,d:integer;

   begin clrscr;

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

      if n mod 2=0 then writeln(n,’ la so chan’)

                             else writeln(n,’ la so le’);

        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