Question

Vă roog frumos sa mă ajutați! !Se citeste un număr natural n.Calculati și afisati rasturnatul sumei cifrelor lui n

Answer 1

var n,r,s:string;
i,su,p,e:integer;

begin
readln(n);
writeln;

for i:=1 to length(n) do begin
val(n[i],p,e);
su+=p
end;

str(su,s);

for i:=1 to length(s) do
r+=s[length(s)+1-i];

writeln(r);
end.