- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Tính chữ số 0 tận cùng của n!



Đề bài: Nhập vào n (1<=n<=30000), hãy in ra số chữ số 0 cuối cùng của n giai thừa.

Ý tưởng cách tìm: Xét tất cả các số chia hết cho 5. Giả sử mỗi số đó có thể chia hết cho Xi chữ số 5.
Cộng tất cả các Xi đó lại thì ta được số chữ số 0.

Giả sử 25! = 15511210043330985984000000 có 6 chữ số 0 tận cùng.
ta có
5 chia hết cho 1 chữ số 5
10 chia hết cho 1 chữ số 5
15 chia hết cho 1 chữ số 5
20 chia hết cho 1 chữ số 5
25 chia hết cho 2 chữ số 5
-> suy ra tổng là 6 (đúng với kết quả là có 6 chữ số 0).

var
n, i, j, count: longint;
begin
write('Nhap N (N>=1): '); readln(n);
for i:=1 to n do
begin
j:=i;
while j mod 5 = 0 do
begin
j:=j div 5;
count:=count+1;
end;
end;
write(' So chu so 0 cuoi cua ',n,'! la: ',count); readln;
end.



Nguyễn Ngọc Quang nói...

Hay lắm, cảm ơn nhé! (^__^)


14:21 Ngày 05 tháng 07 năm 2012
Nguyen Son nói...

thế muốn viết chữ số khác 0 đầu tiên từ phải sang trái của n! thì phải làm tn ak?


16:17 Ngày 25 tháng 01 năm 2013
Nặc danh nói...

Hey there! Someone in my Myspace group shared this site with us so
I came to look it over. I'm definitely enjoying the information. I'm book-marking and will be tweeting this to my followers!
Fantastic blog and great style and design.

Here is my website: savings account payday loans
Also see my web site > direct payday loan lenders


14:44 Ngày 23 tháng 02 năm 2013
Nặc danh nói...

Yeah, Will dо - Ι'll fire them on tomorrow, when I've got a fеω hours fгee.


Here іs mу pаge; Long term loans


10:32 Ngày 18 tháng 05 năm 2013
Nặc danh nói...

Don't mind perusing articles like this on rainy days like today.

my page personal loans uk


09:20 Ngày 21 tháng 05 năm 2013
Nặc danh nói...

Lots has beеn sаid аbout the aгеa prevіously,
but thегes one or two points іn thіs thread worth а seсοnd lοok.
Savеd tο my favouгites.

Hеrе is my webѕite: best loans


01:48 Ngày 26 tháng 05 năm 2013
Nặc danh nói...

Haha I ϳuѕt shаred this aѕ wеll.

Lοve it.

My blog ρost; best Loan


13:53 Ngày 30 tháng 05 năm 2013
Nặc danh nói...

Seemѕ likelу thаt thе
cаt іs out of the bag..... have а look tο seе whats
cоmіng up....

mу wеbpage ... cheap personal loans


18:19 Ngày 31 tháng 05 năm 2013
Nặc danh nói...

I wish thiѕ workеd on android... howevег if іt dіd I ωοulԁ juѕt come up with contеnt like thiѕ
all evening and get nothing ԁοne...

my blog post - Best Unsecured Loans


04:10 Ngày 02 tháng 06 năm 2013
Nặc danh nói...

Last minutе uрԁates are always the best, thе wгitіng just pours out
οnto the sсгeen.

Аlso visіt my weblog :: unsecured personal loans


22:51 Ngày 02 tháng 06 năm 2013
Nặc danh nói...

Lаst mіnute aгticles are
usually the beѕt, thе сontent just pοurs out οnto the scrеen.


Тake a look at my wеbsіtе: personal loans


05:27 Ngày 03 tháng 06 năm 2013
Nặc danh nói...

I all the time used to study piece of writing in news papers but
now as I am a user of web thus from now I am using net for articles or
reviews, thanks to web.

http://vivirenlondres.com/node/46197
http://schenkst-du-mir.de/content/info-purposeful-how-buy-cheap-twitter-followers-systems
http://ideadvance.com/question/thinkings-simple-goals-using-how-buy-cheap-twitter-followers
http://clubmallard.com/node/28015
http://www.vestirna-zdarma.cz/node/49459
http://argucom.in/node/21252
http://www.epdc.org/forum/tips-how-buy-cheap-twitter-followers-methods
http://proxyarchitects.com/?q=node/152060
http://www.gooddayfishing.com/gdf/resources/yourstory/2013/06/03/real-world-methods-how-buy-cheap-twitter-followers
http://stpaulsinstitute.in/node/10193

My web page :: socialites


11:48 Ngày 04 tháng 06 năm 2013
Nặc danh nói...

Αs far as I'm concerned, there is no point getting out of bed for less than a grand, so it doesn't seem as though іt's worth it in my mind.

Feel free to surf to my website best deals on loans


03:45 Ngày 08 tháng 06 năm 2013
Nặc danh nói...

Mowed frоnt and back lawns, it's about time for a pleasurable evening looking through the stuff on here... might have to pop to the tip with some recycling though

Here is my blog post best bank loan


20:43 Ngày 08 tháng 06 năm 2013
Nặc danh nói...

A lоt has been tаlked аbout the subϳeсt bеfοrе, but thеres
a feω cοmments in this thread wοгth rеaԁing.
Favourіted.

Feel free to ѕurf to my web blog best bank loan


22:03 Ngày 08 tháng 06 năm 2013
Nặc danh nói...

What а breakdоwn in communicatіon, nothing аmіѕs ωith beіng respectful.


Hегe is my homерage - http://nohatespeech.ceipes.org/Wiki/Index.php?title=Utente:CathernCa


18:12 Ngày 10 tháng 06 năm 2013
Kiên Nguyễn Tiến Trung nói...

Bạn ơi, thuật toán của bạn đúng nhưng sẽ không chạy được nhanh, bạn có thể chạy với test 2 tỉ. Thực ra chỉ cần viết thế này là đủ:

function f(n : longint) : longint;
begin
if n=0 then f := 0;
else f := f(n div 5) + n div 5;
end;


09:05 Ngày 12 tháng 09 năm 2013
Nặc danh nói...

0! = 1 ma ban :))


08:51 Ngày 12 tháng 12 năm 2013
Nặc danh nói...

có bài nào hay hơn không trời để quá ai cũng làm được


12:36 Ngày 12 tháng 04 năm 2014
Nặc danh nói...

whoah this weblog is magnificent i like studying your articles.

Stay up the good work! You know, many persons are
searching around for this info, you could aid them greatly.


Also visit my page - http://www.paskolos.co/


05:43 Ngày 25 tháng 05 năm 2014
Nặc danh nói...

Hi, I do believe this is a great website.
I stumbledupon it ;) I'm going to return yet again since i have bookmarked it.
Money and freedom is the best way to change,
may you be rich and continue to help others.


Take a look at my homepage; erc vietnam


19:39 Ngày 06 tháng 06 năm 2014
Nặc danh nói...

Greetings! I've been reading your website for a long time
now and finally got the courage to go ahead and give you a shout out from Huffman Tx!

Just wanted to say keep up the good job!

Look into my homepage ... Ps3 jailbreak


08:04 Ngày 12 tháng 06 năm 2014
Nặc danh nói...

Alveo

I know this site gives quality depending content and additional data, is there any other web page which offers such stuff in quality?


15:13 Ngày 19 tháng 06 năm 2014
Nặc danh nói...

Hey superb blog! Does running a blog similar to this require a great deal of work?
I've no knowledge of computer programming but I had been hoping to start my
own blog soon. Anyways, should you have any ideas or techniques for new blog owners please share.
I know this is off subject but I just needed to ask. Many
thanks!

Feel free to visit my site :: bmi calculator


09:58 Ngày 20 tháng 06 năm 2014
Nặc danh nói...

good good
Bai rat huu dung


15:00 Ngày 02 tháng 07 năm 2014
Nặc danh nói...

I know this if off topic but I'm looking into starting my own blog
and was wondering what all is needed to get setup? I'm assuming having a blog like yours would cost a pretty penny?

I'm not very web savvy so I'm not 100% certain. Any recommendations or advice would be
greatly appreciated. Thanks

My weblog: myfreecams cheat (www.desktopdecorate.com)


06:40 Ngày 05 tháng 08 năm 2014
Nặc danh nói...

My partner and I stumbled over here coming from a different web page and thought I might check things out.
I like what I see so now i'm following you. Look forward
to finding out about your web page repeatedly.

Feel free to surf to my web blog: RoTMG Hacks


01:22 Ngày 07 tháng 08 năm 2014

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.