Описать процедуру sumdigit(n,s), находящую сумму цифр - вопрос №3095026 от Куку1560 14.09.2022 00:04

Question

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

Куку1560 · Answer

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