Giúp Past giải bài này với, hu hu...

[tastsuka]

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é)

[hoangbachvanlong]

chà! toàn người giỏi cả

[ThePast]

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é)

Vậy cách này và cách của anh Bete là 1 àh anh ? ( em mới chỉ lướt wa nên hỏi cho chắc, vì thầy bảo giải theo cách của anh Bete là đúng )

[ThePast]

Mà anh Bete ơi, anh làm ơn ghi tắt cho em vài lệnh cơ bản của bài này đi mà, T___T !!!

[tastsuka]

thực ra bài của mình chỉ làm đựa trên nền tảng CM của bete & một số mệnh đề phụ thôi.Nếu bạn cứ áp dụng cách ng của bete thì sẽ chạy khá lâu và tốn rất nhiều bước ko cần thiết, số sl dc cũng khá bé
một số mệnh đề phụ mình thêm vào sẽ giúp giản lược tối đa sobuwowcs giúp chương trình chạy nhanh hơn rất nhiều lần, dữ liệu sl dc cg lớn hơn

[bete]

Thân gửi bạn tastsuka,

{tìm số ng tố lớn nhất là ước của m}
1) q:=n div k;
{}
2) t=0;
repeat
3) t:=t+q;
4) q:=q div k
5) until q=0
{tính số ước của k trong N!}

=> cho tui thắc mắc 1 chút nghen:

Giả sử M=96, N=10

a) M=96=(2^5)*3 => 3 là số nguyên tố lớn nhứt thoả: là ước của M
=> k = 3

Bây giờ nếu mình làm bằng tay giải thuật của bạn:

1) q = n div k = 10 div 3 = 3
2) t = 0
3) t = t+q = 0 + 3 = 3
4) q = q div k = 3 div 3 = 1
3) t = t+q = 3 + 1 = 4
4) q = q div k = 1 div 3 = 0
5) until q = 0

=> đáp số là t = 4

Nhưng với M=96=(2^5)*3 và N! = 10! = (2^8)*(3^4)*(5^2)*7 thì đáp số phải là 1 (10! chia hết cho 96^1 nhưng không chia hết cho 96^2)

Không biết tui có làm sai chỗ nào hay không ?

(hiểu biết nông cạn ; có gì sai sót mong được góp ý, xin cám ơn)

-thân

[nongdantangai]

bọn trẻ dạo này nhác học quá. Suốt ngày chat chit + gái gú còn tg đâu mà học với hành, thui các bạn "giúp" thì "giúp" cho trót đi. post luôn cả tệp *.pas + *.exe(về khỏi phải dịch lại) luôn cho tụi nó đi. Hic

[ThePast]

Chài, anh Bete nói đúng rồi anh Tastsuka ơi...
Anh Bete... cho em mấy cái câu lệnh cơ bản đi mà.... T___T

[ThePast]

Mai thầy kiểm tra rồi T__T (

[bete]

Thân gửi ThePast

Nếu bạn chọn cách giải dùng sàng Eratosthenes thì bạn có thể coi kỹ lại phần trả lời #8 (chỉ dùng vòng lặp và mảng không thôi => cần kiến thức rất cơ bản). Và bạn có thể coi kỹ các ví dụ (tui đã ráng viết để bạn có thể nhìn vô là làm được)

-thân