На языке программирования Pascal определена функция. Определите, чему равно значение функции f(529743): function f(n: integer): integer; var p, digit: integer; begin p:= 0; while n <> 0 do begin digit := n mod 10; p:= p + digit; n := n div 10; end; f := p; end;

Разбираемся:

Функция f(n) принимает целое число n и возвращает сумму его цифр. Алгоритм работает следующим образом:

1. Инициализируется переменная p (сумма цифр) нулем.
2. Пока n не равно 0, выполняются следующие действия:
• Вычисляется последняя цифра числа n (digit := n mod 10).
• Эта цифра добавляется к сумме p (p := p + digit).
• Число n делится на 10 нацело, чтобы убрать последнюю цифру (n := n div 10).
3. В конце функция возвращает полученную сумму цифр p.

Теперь применим эту функцию к числу 529743:

1. n = 529743, p = 0
2. Первая цифра: digit = 529743 mod 10 = 3, p = 0 + 3 = 3, n = 529743 div 10 = 52974
3. Вторая цифра: digit = 52974 mod 10 = 4, p = 3 + 4 = 7, n = 52974 div 10 = 5297
4. Третья цифра: digit = 5297 mod 10 = 7, p = 7 + 7 = 14, n = 5297 div 10 = 529
5. Четвертая цифра: digit = 529 mod 10 = 9, p = 14 + 9 = 23, n = 529 div 10 = 52
6. Пятая цифра: digit = 52 mod 10 = 2, p = 23 + 2 = 25, n = 52 div 10 = 5
7. Шестая цифра: digit = 5 mod 10 = 5, p = 25 + 5 = 30, n = 5 div 10 = 0

Результат: p = 30

Ответ: 30

Проверка за 10 секунд: Просто сложи цифры 5+2+9+7+4+3 = 30.

Доп. профит: Запомни, что функция, которая вычисляет сумму цифр числа, полезна во многих задачах, связанных с обработкой чисел.