Help, процедуры Опции

[Xumuk]

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

[Артемий]

Зачем дублировать? Процедуры в Pascale

Добавлено через 19 мин.
Вот для успокоения:

procedure SumDigit(n: Integer; var s: Integer);
var
 h: Integer;
begin
 h:=n;
 while not (h=0) do begin
  s:=s+abs((h mod 10));
  h:=h div 10;
 end;
end;

Сообщение отредактировано: Артемий2 - 18.03.2007 23:21