Developing.ru

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

Код: Выделить всё

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

Developing.ru

Delphi. Сумма цифр числа.

Delphi. Сумма цифр числа.

Re: Delphi. Процедуры