Question

Viết chương trình cho biết 1 số nhập từ bàn phím có phải là 1 số nguyên tố hay không?

Answer 1

uses crt;
var a,u,kt:integer;
begin
clrscr; kt:= 1;
write('Nhap 1 so: ');readln(a);
if a = 1 then write(a,' khong phai so nguyen to')
else if (a = 2) or (a = 3) then write(a,' la so nguyen to')
else if a > 3 then
begin
for u:= 2 to a - 1 do
if a mod u = 0 then kt:= 0;
if kt = 0 then write(a,' khong phai so nguyen to')
else if kt = 1 then write(a,' la so nguyen to');
end;
readln
end.

Answer 2

Câu hỏi của Lê Lưu Hồng Phúc - Tin học lớp 8 | Học trực tuyến

Answer 3

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('n='); readln(n);

if n<=1 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do

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

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.