Viết chương trình kiểm tra xem số đó có phải là số nguyên tố hay không? pascal không dùng for hay while
2 câu trả lời
type int = longint;
bool = boolean;
var n: longint;
function prime(n: int): bool;
var i: int;
begin
if n < 2 then exit(false);
if n mod 2 = 0 then exit(n = 2);
if n mod 3 = 0 then exit(n = 3);
i:=5; repeat
if n mod i = 0 then exit(false);
if n mod (i + 2) = 0 then exit(false);
inc(i, 6);
until i * i > n;
exit(true);
end;
begin
readln(n);
writeln(prime(n));
end.
uses crt;
var n: longint;
function prime(n: longint): longint;
var i: longint;
begin
if n < 2 then exit(0);
i:=2;
repeat
if n mod i = 0 then exit(0);
inc(i);
until i * i > n;
exit(1);
end;
begin
clrscr;
readln(n);
if prime(n) = 1 then writeln('YES') else writeln('NO');
readln;
end.
Câu hỏi trong lớp
Xem thêm
