uses crt; var N, i, n:integer; begin clrscr; writeln('Nhập số N: '); readln(N); i:=1; n:=0; if N = 1 then writeln(N, 'không phải là số nguyên tố.'); while i<=N do begin if (N mod i = 0) then n:=n+1; i:=i+1 end; if n = 2 then writeln(N, 'là số nguyên tố.') else writeln(N, 'không phải là số nguyên tố.'); readln; end. Đề: Viết chương trình nhận biết 1 số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? = Pascal Mik sai chỗ nào dị mí cou;-;? (lần 2:v)

Lỗi: sau khi bạn nhập n thì bạn gán n bằng 0 thì nó xét kiểu gì.

chưa gì đầu đã sai rồi, còn trong vòng while nếu n mod i = 0 thì n:= n+ 1 để làm gì trời ạ.

chưa nói đến gán n = 0 , i = 1, điều kiên while i <= n mà ngay từ đầu i bạn lớn hơn n rồi. trời ạ

nói chung nên code bằng vòng for thì sẽ dễ hơn là while, nếu lấy code vòng for thì bảo mình

uses crt;
var n,i: longint;
begin
    clrscr;
    write('Nhap N'); readln(n);
    If n < 2 then 
        begin 
            write(n,' khong la so nguyen to');
            exit;
        end;
    i:= 2;
    while i <= trunc(sqrt(n)) do
        if n mod i = 0 then 
            begin
                write(n,' khong la so nguyen to');
                exit;
            end
        else inc(i);
    write(n,' la so nguyen to');
end.