BÀI TẬP 2_SỐ NGUYÊN TỐ

Viết chương trình Pascal nhập số tự nhiên N từ bàn phím. Xuất ra màn hình:

        - Cho biết số tự nhiên N có phải là số nguyên tố hay không?

        - Cho biết số nguyên tố bé nhất lớn hơn N.

CODE THAM KHẢO

program BT2;

uses crt;

var i,j, n: integer;

function kt_snt(n:integer): boolean;

var i:byte; kt:boolean;

begin

        kt:=true;

        if n <2 then kt:=false;

        for i:=2 to n-1 do

        if n mod i =0 then kt:=false;

        kt_snt:=kt;

end;

begin

    clrscr;

    write('Nhap so nguyen N = '); readln(n);

    if kt_snt(n) then writeln(n,' la so nguyen to') else writeln(n,' khong phai so nguyen to');

    j:=n;

    repeat j:=j+1

    until kt_snt(j);

    writeln('So nguyen to nho nhat lon hon ',n,' la: ',j);

    readln;

end.