Các bạn giúp mh` viết chương trình tính tổng giá trị các chữ số trong một số nguyên nhập từ bàn phim' đk ko ?
VD: số nhập vào là 2547 ---> tổng cần tìm là 2+5+4+7=18.
Thanks trc! ^^
uses crt;
var i,n,tong,tam:longint;
s,dau:string;
begin
clrscr;
write('Nhap n=');readln(n);
tong:=0;s:='';
while n>0 do
tam:=n mod 10;
n:=n div 10;
if n=0 then dau:='' else dau:='+';
s:=dau+chr(tam+48)+s;
tong:=tong+tam;
end;
write('Ket qua =',s,'=',tong);
readln;
end.
Copyright © 2024 1QUIZZ.COM - All rights reserved.
Answers & Comments
Verified answer
uses crt;
var i,n,tong,tam:longint;
s,dau:string;
begin
clrscr;
write('Nhap n=');readln(n);
tong:=0;s:='';
while n>0 do
begin
tam:=n mod 10;
n:=n div 10;
if n=0 then dau:='' else dau:='+';
s:=dau+chr(tam+48)+s;
tong:=tong+tam;
end;
write('Ket qua =',s,'=',tong);
readln;
end.