Описать процедуру SumDigit (N, S), находящую сумму

цифр S целого числа N (N - входной, S - выходной

параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.

Question

Галата

18 сентября, 21:39

+2

Ответы (1)

Знаете ответ на вопрос?

Кетевань · Answer 1

procedure SumDigit (N:byte; var S:byte) ;

begin

S:=N mod 10+N div 10;

end;

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