viết Trương trình nhập vào số nguyên dương n. kiểm tra xem n có phải là số nguyên tố ko
viết Trương trình nhập vào số nguyên dương n. kiểm tra xem n có phải là số nguyên tố ko
By Bella
By Bella
viết Trương trình nhập vào số nguyên dương n. kiểm tra xem n có phải là số nguyên tố ko
program phuongt;
uses crt;
var n, s, i: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0;
for i:=1 to n do if n mod i = 0 then s:=s+1;
if s=2 then write(n, ‘ la so nguyen to’)
else
write(n, ‘ khong phai so nguyen to’);
readln
end.
var kt: boolean;
N, i: word;
Begin
Write(‘n = ‘); readln(n);
Kt:=true;
If n<2 then kt:=false
Else for i:=2 to trunc(sqrt(n)) do
If n mod i=0 then kt:=false;
If kt then write(‘la so nguyen to’)
Else write(‘khong phai so nguyen to’);
Readln
End.