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

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

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

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

14:21 5 tháng 7, 2012
Nặc danh 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 25 tháng 1, 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 23 tháng 2, 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 18 tháng 5, 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 21 tháng 5, 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 26 tháng 5, 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 30 tháng 5, 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 31 tháng 5, 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 2 tháng 6, 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 2 tháng 6, 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 3 tháng 6, 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.


My web page :: socialites

11:48 4 tháng 6, 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 8 tháng 6, 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 8 tháng 6, 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.

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

22:03 8 tháng 6, 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 10 tháng 6, 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;
if n=0 then f := 0;
else f := f(n div 5) + n div 5;

09:05 12 tháng 9, 2013
Nặc danh nói...

0! = 1 ma ban :))

08:51 12 tháng 12, 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 12 tháng 4, 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 25 tháng 5, 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 6 tháng 6, 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 12 tháng 6, 2014
Nặc danh nói...


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 19 tháng 6, 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

Feel free to visit my site :: bmi calculator

09:58 20 tháng 6, 2014
Nặc danh nói...

good good
Bai rat huu dung

15:00 2 tháng 7, 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 5 tháng 8, 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 7 tháng 8, 2014
Hien Tu nói...

cảm ơn tác giả. Thật tuyệt vời

14:59 5 tháng 9, 2017
Cồng Nguyễn Cương nói...

Var n,k:longint;
While n>=5 do
n:=n div 5;

17:46 17 tháng 10, 2018

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang


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.