dùng lệnh while... do... nhập số n in ra tổng các chữ số n

Question

dùng lệnh while... do...  nhập số n in ra tổng các chữ số n

dongocdiem · Answer

program tong_chuso;

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 mod 10;

end;

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

readln;

end.

tuanh · Answer

Program Tinh_tong;

Uses crt;

Var n , s , k: integer;

Begin

Write (‘ Nhap N:’);

Readln (N);

S := 0;

While ( N <> 0 ) do

Begin

k := N mod 10;

N := N div 10;

S := S + k;

End;

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

Readln;

End.

dùng lệnh while… do… nhập số n in ra tổng các chữ số n