Vua Tên Miền chuyên cung cấp tên miền đẹp, giá rẻ! Hãy liên hệ kỹ thuật: 0914205579 - Kinh doanh: 0912191357 để được tư vấn, hướng dẫn miễn phí, Cảm ơn quý khách đã ủng hộ trong thời gian qua!
kinh doanh, bán hàng, tư vấn, bảo hiểm Những cá nhân, tổ chức, đại lý,muốn bán, hợp đồng bảo hiểm
Wednesday, January 16, 2019




Ý tưởng là ta chia s đó cho 10 ly dư (mod) thì được ch s hàng đơn v, và ly s đó div 10 thì s được phn còn li. Do đó s chia liên tc cho đến khi không chia được na (s đó bng 0), mi ln chia thì được mt ch s và ta cng dn ch s đó vào tng.
Hàm tính tng ch s nhn vào 1 s nguyên n và tr li kết qu là tng các ch s ca nó:
func­tion tongcs(n:in­te­ger): in­te­ger;
var s : in­te­ger;
be­gin
            s := 0;
            while n <> 0 do be­gin
                        s := s + n mod 10;
                        n := n div 10;
            end;
            tongcs := s;
end;
Chú ý: Tính tích các ch s cũng tương t, ch cn chú ý ban đầu gán s là 1 và thc hin phép nhân s vi n mod 10.
tcaviet@gmail.com

0 comments:

Post a Comment

domain, domain name, premium domain name for sales

Popular Posts