Question

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.

 

Answer 1

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.