Chương trình kiểm tra số nguyên tố pascal

Hướng dẫn:

Bài toán được thực hiện qua 3 bước cụ thể như sau:

–         Thông báo nhập liệu, và nhập dữ liệu vào cho N
–         Tiến hành kiểm tra N có phải là số nguyên tố hay không:
–         Xuất câu trả lời “N la so nguyen to” hoặc “N khong phai la so nguyen to” tùy theo giá trị của biến

Chương trình:

Program SNT;
Uses crt;
Var n , i :Integer;                                    // Khai bao bien su dung
BEGIN
            Write[‘Nhap vao mot so:’];        // Thong bao nhap lieu
            Readln[n];                                   // Nhap gtri N, [voi &N la lay d/c bien N]
            i := round[ sqrt[n] ];
            If[ n mod i  0] then                 // Xuat cau tra loi cuoi cung
                        Writeln[‘ N la so nguyen to’]
            Else
                        Writeln[‘ N khong la so nguyen to’];
            Readln;
END.

Chương trình kiểm tra số nguyên tố trong Pascal

program kiem_tra_nguyen_to;
var m:longint;f:text;
{------ chuong trinh con kiem tra so nguyen to ----}
function ngto[n:longint]:boolean;
var i:longint;
begin
  if nn];
 If i*i>n then Writeln [n,’
la so nguyen to’]
 Else Writeln [n,’ khong phai la so nguyen to’];
 End;
 Readln;
 End.
Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N [N là số nguyên không âm được nhập từ bàn phím].
Program CAC_SO_NGUYEN_TO;
 Uses crt;
 Var n,i,t: integer;
 Begin
 Clrscr;
 Writeln[‘IN RA CAC SO NGUYEN SO