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

Question

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

Answer 1

 procedure  SumDigit(N:byte; var S:byte);
begin
S:=N mod 10+N div 10;
end;