Pascal | Nhập vào một số tự nhiên N. Hãy tính tổng các chữ số của nó

Pascal | Nhập vào một số tự nhiên N. Hãy tính tổng các chữ số của nó

Nhập vào một số tự nhiên N. Hãy tính tổng các chữ số của nó.

                        Ví dụ: N = 1682                    Tong cac chu so cua N la: 17 ( = 1 + 6 + 8 + 2 )

Yêu cầu: Input: N là số nguyên bất kỳ, N có khả năng là số lớn

            Output: S, la tổng các chữ số của N

Hướng dẫn:

- Gán tổng S với giá trị ban đầu là 0

- Sử dụng để lấy từng chữ số của số tự nhiên N bằng cách:

Lặp trong khi mà N còn > 0 thì

+ Gán k là chữ số cuối cùng của N.

+ Tiến hành cắt chữ số cuối cùng của N đi bằng việc lấy N chia cho 10.

+ Cộng dồn S: = S + k

Lặp lại cho đến khi N = 0 thì dừng

Chương trình:

Program tong;

Uses crt;

Var n , s , k: integer;                            // Khai bao bien su dung

Begin

    Write(‘ Nhap N:’);                           // Thong bao nhap lieu

    Readln(N );                                        // Nhap gtri cho N

    S := 0;

    While ( N <> 0 ) do                      // Lap trong khi N con ≠ 0

    Begin     

            k := N mod 10;                      // Lay chu so hang don vi o cuoi cung

            N :=  N div 10;                      // Cat chu so hang don vi da duoc lay ra

            S := S + k;                              // Tinh tong cong don vao S

    End;

    Writeln( ‘Tong cac chu so cua ’,N,’ la :’, S);   // Xuat ket qua

    Readln;

End.
Bạn thấy bài viết này như thế nào?: 
Average: 8.6 (173 votes)
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Cách Installation profiles cho Drupal 7 site

Cách Installation profiles cho Drupal 7 site

Installing one of our new install profiles is as easy as installing Drupal itself. Assuming you have the basic requirements for installing Drupal

Ngăn Chặn Người Xem Tải Về Tập Tin Google Docs

Ngăn Chặn Người Xem Tải Về Tập Tin Google Docs

Nếu bạn tải lên một tập tin PDF với Google Docs và chia sẻ nó với những người khác, họ có thể tải về, in và sao chép tập tin vào tài khoản của họ.

www.hootsuite.com

www.hootsuite.com dùng đăng bài viết lên social network

Với tính năng tìm kiếm vượt trội của mình, những thông tin hay bài viết bạn chia sẻ lên Google Plus sẽ giúp bài viết của bạn có cơ hội được nhiều người biết đến