• Дано натуральное число N. Напишите функцию (Pascal), вычисляющую сумму цифр числа N.

    Входные данные
    Задано единственное число N

    Выходные данные
    Необходимо вывести сумму цифр числа N.

    Примеры
    входные данные
    12
    выходные данные
    3
    ПРОГРАММА БЫЛА, НО ВВОДИЛ 12 И ВЫВОДИЛ ВМЕСТО 3, 0

Ответы 1

  • program pro;var n,a,sym:integer;beginreadln(n);while n>0 do begin  a:=n mod 10;  sym:=sym+a;  n:=n div 10;  end;writeln(sym)end.
    • Автор:

      mollyl34c
    • 2 года назад
    • 9
  • Добавить свой ответ

Войти через Google

или

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

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

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