vct nhập vào một số N và cho biết đó có phải là số nguyên tố hay không
2 câu trả lời
program hello;
uses crt;
var i,n: integer
begin
clrscr;
writeln('nhap n'); readln(n);
if n<= 1 then writeln('n ko la snt') else
begin
i:=2;
while n mod i <> 0 do i:=i+1;
if i = n then writeln('n,'la snt')
else writeln('n,'ko phai snt');
end;
readln;
end.
program ct;
uses crt;
var kt,n:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
if n mod n=0 and n mod 1=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
Học tốt!