Срочно! Pascal ABC! Дано натуральное число N. Вычислите сумму его цифр.При решении этой...

Question

Срочно! Pascal ABC!
Дано натуральное число N. Вычислите сумму его цифр.При решении этой задачи нельзя использовать строки, массивы (ну и циклы, разумеется).

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Var
 n,s:integer;

 procedure sumforfunclang(n:integer;var s:integer);
 begin
  if n>0 then
   begin
    s:=s+n mod 10;
    n:=n div 10;
    sumforfunclang(n,s);
   end;
 end;

 begin
 readln(n);
 sumforfunclang(n,s);
 writeln(s);
end.

Пример ввода:
34
Пример вывода:
7