var a,sum: integer;
begin
readln(a);
sum:=0;
while(a>0) do begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('s=',sum);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var a,sum: integer;
begin
readln(a);
sum:=0;
while(a>0) do begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('s=',sum);
end.