Em hãy dùng phần mềm Pascal để giải bài toán sau:Cho một số nguyên dương n (\(n\le10^{18}\)). Em hãy tính xem n có bao nhiêu ước nguyên tố. Sample input: Sample output\(n=100\) \(2\)Giải thích: 100 có 2 ước nguyên tố đó là: 2 và...
Đọc tiếp
Em hãy dùng phần mềm Pascal để giải bài toán sau:
Cho một số nguyên dương n (\(n\le10^{18}\)). Em hãy tính xem n có bao nhiêu ước nguyên tố.
Sample input: Sample output
\(n=100\) \(2\)
Giải thích: 100 có 2 ước nguyên tố đó là: 2 và 5.
uses crt;
var n,i,dem:integer;
{----------------ham-kiem-tra-so-nguyen-to---------------------------}
function ktnt(x:integer):boolean;
var kt:boolean;
i:integer;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=false;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{-----------------chuong-trinh-chinh-----------------------}
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=2 to n do
if (n mod i=0) and (ktnt(i)=true) then inc(dem);
writeln(dem);
readln;
end.
10^18 bạn ạ