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: 7.9 (202 votes)
Ảnh của Tommy Tran

Tommy 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

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

 
Hướng dẫn định dạng file văn bản năm 2015

Hướng dẫn định dạng file văn bản năm 2015

Nhiều khi bạn loay hoay không biết làm thế nào để quay được 1 trang ngang trong cả đống trang văn bản

Install Midnight Commander (MC) 4.7.3 In Ubuntu

Install Midnight Commander (MC) 4.7.3 In Ubuntu

Midnight Commander is probably the most well-known console file manager and probably the most easy to use due to being the closest to Norton Commander...

Vũ Khắc Tiệp bị đồn vừa đi du lịch Đà Nẵng - Tin nóng ngày 27.7.2020

Vũ Khắc Tiệp bị đồn vừa đi du lịch Đà Nẵng - Tin nóng ngày 27.7.2020

Covid quay lại Đà Nẵng và Quảng Ngãi sau 100 ngày yên ổn.

Tomdesgin.vn

 

Drupal Services