Процедуры в Pascale, ПОМОГИТЕ!!!! Опции

[Xumuk]

Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
ВАЩЕ не врубаюсь, помогите пожалуйста!

[Tan]

Вот это объеденение всего вышеупомянутого :

uses crt;
var n,sum : integer;
procedure SumDigits (N : integer; var S : integer);
begin
   while n <> 0 do 
  begin
         s:= s + abs(n mod 10);
         n:= n div 10;
  End; 
end;
begin
readln (n);
SumDigits (n,sum);
writeln (sum);
readkey;
end.

Сообщение отредактировано: Tan - 18.03.2007 23:30