Viết chương trình để nhập 1 số vào từ bàn phím.Sau đó máy tính sẽ thông báo đó có phải là số nguyên tố hay không

1 câu trả lời

uses crt;
var n: Longint;

function prime(n: Longint): Boolean;
var i: Longint;
begin
    if n < 2 then
        exit(false);
    for i:=2 to trunc(sqrt(n)) do
        if n mod i = 0 then
            exit(false);
    exit(true);
end;

begin
clrscr;
    readln(n);
    writeln(prime(n));
readln;
end.

Câu hỏi trong lớp Xem thêm