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

Ответы 1

  •  procedure  SumDigit(N:byte; var S:byte); begin S:=N mod 10+N div 10; end;
    • Автор:

      angel527
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years