Question

viết chương trình nhập vào số nguyên n, kiểm tra số đó có là số nguyên tố hay ko

Answer 1

giải

uses crt;

var n,i,x:longint;

begin

write(' nhap so n: ');readln(n);

x:=0;

for i:=2 to n-1 do

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

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

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

readln

end.

Answer 2

uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then 
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 phai la so nguyen to');
end
else writeln(n,' khong la so nguyen to ');
readln;
end.
end.