Thuật toán tính tổng các chữ số trong pascal

Thuật toán tính tổng các chữ số trong pascal
HuanBuiThanh


Ý tưởng là ta chia số đó cho 10 lấy dư (mod) thì được chữ số hàng đơn vị, và lấy số đó div 10 thì sẽ được phần còn lại. Do đó sẽ chia liên tục cho đến khi không chia được nữa (số đó bằng 0), mỗi lần chia thì được một chữ số và ta cộng dồn chữ số đó vào tổng.

Hàm tính tổng chữ số nhận vào 1 số nguyên n và trả lại kết quả là tổng các chữ số của nó:

function tongcs(n:integer): integer;
var s : integer;
begin
s := 0;
while n <> 0 do begin
s := s + n mod 10;
n := n div 10;
end;


Getting Info...

3 nhận xét

  1. Bài viết thật tuyệt vời. Mình cũng muốn giới thiệu về một Công ty dịch thuật uy tín - Công ty dịch thuật miền trung - MIDtrans trụ sở chính chính tại địa chỉ 02 Hoàng Diệu, TP Đồng Hới, tỉnh Quảng Bình có Giấy phép kinh doanh số 3101023866 cấp ngày 9/12/2016 là đơn vị chuyên cung cấp dịch vụ dịch thuật, phiên dịch dành các cá nhân. Hệ thống thương hiệu và các Công ty dịch thuật con trực thuộc: dịch thuật bình định - dịch thuật miền trung tại địa 100 Lê Lợi, TP Quy Nhơn là địa chỉ chuyên cung cấp dịch vụ dịch thuật chuyên nghiệp tại bình định ; dịch thuật công chứng sài gòn 247 , địa chỉ 47 Điện Biên Phủ, Phường Đakao, Quận 1 TP HCM, dịch thuật pleiku, gia lai : địa 101 Trần Hưng Đạo, TP Pleiku, Gia Lai là nhà cung ứng dịch vụ dịch thuật uy tín hàng đầu tại Gia Lai; Công ty dịch thuật Viettrans và dịc vụ chinese to vietnamese translation: dịch vụ dịch thuật tiếng Trung cho người nước ngoài có nhu cầu, giao diện tiếng Anh dễ sử dụng; dịch thuật công chứng củ chi: nhà c…
  2. ........................
  3. Is the casino a safe bet? - DrmCD
    What is the safest 울산광역 출장마사지 bet? Betting on sports งานออนไลน์ is much more 강원도 출장샵 fun! 여주 출장샵 That's why there are many people out there who gamble online, whether it be football, 영천 출장안마 tennis,
Cảm ơn bạn đã quan tâm và gửi nhận xét tại
http://huanbuithanh.blogspot.com
hãy ghé thăm blog hàng ngày để được cập nhật những thủ thuật mới nhất nhé . thân ái !
Cookie Consent
We serve cookies on this site to analyze traffic, remember your preferences, and optimize your experience.
Oops!
It seems there is something wrong with your internet connection. Please connect to the internet and start browsing again.
AdBlock Detected!
We have detected that you are using adblocking plugin in your browser.
The revenue we earn by the advertisements is used to manage this website, we request you to whitelist our website in your adblocking plugin.
Site is Blocked
Sorry! This site is not available in your country.