нужно решить рекурсией

@volchik1991 · Регистрация: 26.05.2009

Студворк — интернет-сервис помощи студентам

Найдите сумму цифр заданного натурального числа.

Pascal

var
   n,s:integer;
begin
     s:=0;
     write('Vvedite chislo  : ');
     readln(n);
     while n>0 do
     begin
          s:=s+n mod 10;
          n:=n div 10;
     end;
     writeln('Summa chisel :  ',s);
     readln;
end.

@lexus_ilia · 13.06.2009, 19:13

Держите:

Pascal

Program xa;
var
  n:integer;
 
Function SumChisl(n:integer):integer;
begin
  if n>0 then
    sumChisl:=n mod 10+SumChisl(n div 10)
  else
    SumChisl:=0
end;
 
begin
  Writeln('VVedite Chislo');
  readln(n);
  Writeln('Cymma Chisel= ' ,SumChisl(n) );
  readln
end.

Опции темы