Question

Scrieti un program pascal care calculeaza suma cifrelor unui numar natural de 4 cifre

Answer 1

n=numarul de 4 cifre
begin
    s:=0;
    While(n<>0) do
       begin
           c:=n mod 10;
           s:=s+c;
           n:=n div 10;
       end;
  writeln(s);
end.