Viết chương trình Câu 1. Nhập vào số nguyên N, kiểm tra N có phải là số nguyên tố ko? Câu 2. Nhập vào số có 3 chữ số in ra chữ số hàng trăm, hàng chục

0 bình luận về “Viết chương trình Câu 1. Nhập vào số nguyên N, kiểm tra N có phải là số nguyên tố ko? Câu 2. Nhập vào số có 3 chữ số in ra chữ số hàng trăm, hàng chục”

1. Câu 1:

   program nguyen_to;

   uses crt;

   var n,i:integer;

   begin

            clrscr;

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

            i:=2;

            while n mod i=0 do

                     i:=i+1;

            if i=n then write(n,’ la so nguyen to’)

                     else write(n,’ khong phai so nguyen to’);

            readln;

   end.

   Giải thích:

   -Nếu n mà còn chia hết cho i thì tăng i lên 1 đơn vị

   – nếu i=n (nghĩa là n chỉ chia hết cho 1 và chính nó) thì là số nguyên tố

   Câu 2:

   program chu_so;

   uses crt;

   var n:integer;

         cs:byte;

   begin

            clrscr;

            write(‘Nhap so co 3 chu so: ‘);  readln(n);

            cs:=n div 100;  {Chữ số hàng trăm là chữ số nguyên khi chia cho 100}

            write(‘Chu so hang tram la: ‘,cs);

            cs:=n div 10; {lấy chữ số đầu và thứ 2 là chữ số hàng trăm và hàng chục}

            cs:=cs mod 10;  {lấy chữ số ở sau là chữ số hàng chục}

            write(‘Chu so hang chuc la: ‘,cs);

            cs:=n mod 10; {là số dư của số đó với 10 và nó là chữ số cuối cùng}

            write(‘Chu so hang don vi la: ‘,cs);

            readln;

   end.

   Bình luận