Tính Chữ Số 0 Tận Cùng Của N! - Code Pascal

• Trang chủ
• Pascal cơ bản
  • Câu lệnh vòng lặp
  • Câu lệnh điều kiện
  • Mảng 1 chiều
  • Mảng 2 chiều
  • Xâu
• Kiến thức mở rộng
• Pascal nâng cao
  • Đệ quy
  • Quay lui
  • Quy hoạch động
• Liên hệ

• Bài tập Pascal
• Học Pascal online
• Giải bài tập Pascal
• Công cụ Pascal
• Đề thi học sinh giỏi

- 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 *> Download: Turbo Pascal 7.0, Turbo Pascal for win 7, Free Pascal *> Giáo trình học Pascal *> Lý thuyết: Cấu trúc chương trình - Câu lệnh điều kiện - Câu lệnh vòng lặp - Mảng - Xâu *> Bài tập: * Yều cầu/Giải bài tập Pascal - Tìm số nguyên tố - Tìm UCLN, BCNN - Kiểm tra cấp số cộng - Đếm số lần xuất hiện mỗi chữ cái trong xâu You are here: » Home » Pascal mở rộng » Tính chữ số 0 tận cùng của n! Tính chữ số 0 tận cùng của n! 11:07 Dinh Đề 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. Related Posts : Bài tập Pascal, Pascal mở rộng Nhãn: Bài tập Pascal, Pascal mở rộng 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 loansAlso 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/46197http://schenkst-du-mir.de/content/info-purposeful-how-buy-cheap-twitter-followers-systemshttp://ideadvance.com/question/thinkings-simple-goals-using-how-buy-cheap-twitter-followershttp://clubmallard.com/node/28015http://www.vestirna-zdarma.cz/node/49459http://argucom.in/node/21252http://www.epdc.org/forum/tips-how-buy-cheap-twitter-followers-methodshttp://proxyarchitects.com/?q=node/152060http://www.gooddayfishing.com/gdf/resources/yourstory/2013/06/03/real-world-methods-how-buy-cheap-twitter-followershttp://stpaulsinstitute.in/node/10193My 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 thoughHere 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 goodBai 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. ThanksMy 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...

sai

lúc 22:24 12 tháng 11, 2018 Unknown nói...

bài của mình:uses crt;varn,i,t,gt,d:longint;beginclrscr;write('nhap n ');readln(n);gt:=1;for i:=1 to n dogt:=gt*i;d:=0;repeatt:=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

Previous Article Next Article Trang chủ Đăng ký: Đăng Nhận xét (Atom) Widget By Devils Workshop

Đọc nhiều nhất

• Bài 5: Xâu ký tự (String) trong Pascal Xâu là gì? Để xử lý các chuỗi văn bản, Pascal đưa ra một kiểu dữ liệu mới gọi là xâu ký tự và được định nghĩa bằng từ khóa STRING. Xâu ký tự...
• Bài tập Pascal - Giải bài tập Pascal (cơ bản) Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lư...
• Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN ->...
• Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat) - Đánh răng mỗi ngày hai lần, học Tin học mỗi tuần 2 tiết, mỗi ngày tắm một lần... - Học cho đến khi thuộc bài, rửa tách trà cho đến khi sạ...
• Kiểm tra số nguyên tổ trong pascal Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Đây là một bài toán rất căn bản trong Pascal. Ý tưởng: Số nguyên tố là s...
• Tệp - Kiểu dữ liệu tệp trong Pascal Chuyên đề :   KIỂU DỮ LIỆU TỆP 1 Khái niệm về tệp: Tệp là một dãy các phần tử cùng kiểu được sắp xếp một cách tuần tự. Tệp dữ liệu đ...
• Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Đám mây

Bài tập Pascal (49) Pascal cơ bản (38) Mảng 1 chiều (17) Pascal mở rộng (17) Học Pascal (11) Câu lệnh lặp (9) Pascal nâng cao (8) Bài tập sgk (6) Vòng lặp for (6) Xâu (5) Câu lệnh điều kiện (4) Giáo trình tài liệu (4) Kiểu tệp (3) Mảng 2 chiều (3) Chương trình con (2) Pascal Tools (2) Vòng lặp while (2) Bài tập trắc nghiệm (1) Câu lệnh case (1) Pascal vui (1) vòng lặp repeat (1)

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.