ví dụ : N =1682 

Tổng các chữ số của N là: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,là 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à O 

-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 > lớn hơn O 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 =O 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.