Giúp em với ! Viết chương trình kiểm tra một số N nhập từ bàn phím xuất ra tổng các chữ số của nó

Giúp em với !
Viết chương trình kiểm tra một số N nhập từ bàn phím xuất ra tổng các chữ số của nó

0 bình luận về “Giúp em với ! Viết chương trình kiểm tra một số N nhập từ bàn phím xuất ra tổng các chữ số của nó”

  1. program tong_chu_so;

    uses crt;

    var n:longint;

          t:byte;

    begin

           clrscr;

           write(‘Nhap N: ‘);  readln(n);

           t:=0;

           while n>0 do

                  begin

                         t:=t+n mod 10;

                         n:=n div 10;

                  end;

           write(‘Tong cac chu so la: ‘,t);

           readln;

    end.

    Bình luận

Viết một bình luận