Viết chương trình nhập 1 số và kiểm tra số đó có phải là số nguyên tlos hay không

0 bình luận về “Viết chương trình nhập 1 số và kiểm tra số đó có phải là số nguyên tlos hay không”

1. uses crt; —-> Khai báo thư viện có tên crt var n, i:integer; —-> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer) begin —-> Bắt đầu chương trình chính clrscr; —-> Xóa toàn bộ màn hình write(‘Nhap vao mot so nguyen:’); —-> In ra màn hình : Nhap vao mot so nguyen readln(n); —-> Nhập giá trị cho biến n if n<=1 then writeln(n,’ khong la so nguyen to’) —-> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to else —-> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại) begin —-> Khởi tạo tạo khối chương trình phụ i:=2; —-> Gán biến i có giá trị bằng 2 while (n mod i<>0) do i:=i+1; —-> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị if i=n then writeln(n,’ la so nguyen to’) —-> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to else writeln(n,’ khong la so nguyen to,); —-> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to end; —-> Kết thúc khối chương trình phụ readln —-> Đọc ra màn hình end. —-> Kết thúc chương trình chính b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to

   Bình luận

2. uses crt;

   var i,n ,dem:integer;

   begin

   clrscr;

   Write( ‘nhập số nguyên dg n ‘);readln(n);

   dem:=0;

   for i:=1 to n do if n mod i = 0 then dem:=dem+1;

   if(n<2) or (dem< >2) then writeln (n,’0 phải là số nguyên tố ‘)

   else if dem=2 then writeln(n,’ là số nguyên tố ‘);

   readln

   Bình luận