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