Задачка с процедурой

[Katenka]

Помогите пожалуйста решить задачу! Очень нужно!
Нужно описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N-входной, S-выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.

[Викдон]

Procedure SumDigit(N, var S);
summa:integer;
begin
summa:=0;  
 while N<>0 do
   begin
     b:=N mod 10;
     summa:=summa+b;
     N:=N div 10;
   end;

end;

[Katenka]

какую то ошибку находит в этой строке:
b:=N mod 10;

а для чего вобще эта переменная "b"?

[alex_fcsm]

Procedure SumDigit(N:integer;var S:integer);
 var st:string;
     i,x,code:integer;
begin
s:=0;
str(n,st);
for i:=1 to length(st) do
     begin
      val(st[i],x,code);
      s:=s+x;
     end;
end;

[Katenka]

Спасибо вам огромное!))

у меня тут есть еще одна задачка не хилая(( не поможете??

Описать функцию Exp1(x,eps) вещественного типа (параметры x,eps - вещественные, eps>0),находящую приближённое значение функции eps(х): eps(х)=1 + x + x^2/2! +x^3/3! + ... + x^n/n! +... .В сумме учитывать все слагаемые, большие eps по модулю. С помощью Exp1 найти приближённое значение экспоненты для данного х при шести данных eps.

[alex_fcsm]

var x,eps,sum:real;
    i:integer;

function Fact(x:integer):real;
var j:integer;
    s:real;
begin
s:=1;
for j:=1 to x do
   s:=s*j;
Fact:=s;
end;

function Step(x:real;y:integer):real;
var s:real;
    j:integer;
begin
s:=1;
for j:=1 to y do
   s:=s*x;
Step:=s;
end;

function Fun(x:real;n:integer):real;
begin
fun:=Step(x,n)/fact(n);
end;


begin
writeln('Input data');
readln(x,eps);
i:=0;
sum:=1;
repeat
inc(i);
sum:=sum+Fun(x,i);
until abs(Fun(x,i))<abs(eps);
writeln(sum:12:6);
end.