- 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é! (^__^)


lúc 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?


lúc 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


lúc 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


lúc 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


lúc 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


lúc 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


lúc 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


lúc 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


lúc 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


lúc 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


lúc 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.

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


lúc 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


lúc 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


lúc 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.
Favourіted.

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


lúc 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


lúc 18:12 10 tháng 6, 2013
Unknown 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;


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

0! = 1 ma ban :))


lúc 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


lú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/


lúc 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


lúc 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


lúc 08:04 12 tháng 6, 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?


lúc 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
thanks!

Feel free to visit my site :: bmi calculator


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

good good
Bai rat huu dung


lúc 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)


lúc 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


lúc 01:22 7 tháng 8, 2014
Hiên Hiên nói...

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


lúc 14:59 5 tháng 9, 2017
Cuong nói...

Var n,k:longint;
Begin
Read(n);k:=0;
While n>=5 do
Begin
n:=n div 5;
k:=k+n;
End;
Write(k);
End.
//Fonekedokato


lúc 17:46 17 tháng 10, 2018
Unknown nói...

bài của mình:
uses crt;
var
n,i,t,gt,d:longint;
begin
clrscr;
write('nhap n ');readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
d:=0;
repeat
t:=0;
t:=gt mod 10;
if t<>0 then break;
d:=d+1;
gt:=gt div 10;
until gt=0;
writeln(d);
readln;
end.


lúc 21:35 16 tháng 2, 2019

Đă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.