Question

Sa se scrie un program care va calcula suma cifrelor a unui numar natural de 4 cifre
Program P1
{Calculul}
var N R :intiger
begin
writeln('N')
readln(N)
R:= ....
writeln ('Rezultat',R)
readln()
end

dati-mi rezolvarea ..... cu ce este egal R

Answer 1

 r=(n mod 10) + ((n mod 100) div 10) + ((n mod 1000) div 100) + (n div 1000);

var n,r:integer;

begin
  writeln('N');
  readln(n);
  r:=(n mod 10) + ((n mod 100) div 10) + ((n mod 1000) div 100) + (n div 1000);
  write(r);
  readln;
end.

Sau o metoda alternativa de rezolvare

function sumacifrelor(x:integer):integer;
var s:integer;
begin
  while (x>0) do
  begin
    s:=s+(x mod 10);
    x:=x div 10;
  end;
  sumacifrelor:=s;
end;

var n,r:integer;

begin
  writeln('N');
  readln(n);
  r:=sumacifrelor(n);
  write(r);
  readln;
end.