lằng nhằng quá thế này này:
for k:=[sqrt(m)] to 1 do
if (m mod k=0) and nguyento(k) break
{tìm số ng tố lớn nhất là ước của m}
q:=n div k;
{}
t=0;
repeat
t:=t+q;
q:=q div k
until q=0
{tính số ước của k trong N!}
write(t)
{t chính là số phải tìm}
cách là là thế, còn tại sao lại vậy thì bạn tự CM dựa vào bài bạn bete (dựa thui nhé)
Bookmarks