Pascal: рекурсия

Задача 1.

Использовать рекурсию для нахождения цифрового корня целого числа.

Цифровой корень находится суммой через сумму цифр числа до тех пор, пока эта сумма сама не станет цифрой. Например, для числа 9999999 цифровой корень находится так:

9+9+9+9+9+9+9 = 63;
6+3 = 9.

Цифровой корень 9999999 равен девяти.

Переменные:

а) в функции num:

n – целое число (глобальная переменная);
s – вспомогательная переменная (локальная переменная);

б) в функции root:

n – целое число (глобальная переменная);

в) в основной программе:

n – целое число (глобальная переменная).

Алгоритм решения задачи:

  1. создаем описание функций num и root;
  2. вводим целое число n;
  3. вызываем рекурсивную функцию root и определяем цифровой корень числа n;
  4. завершаем работу программы.

Задача 2.

Напишите рекурсивную программу вычисления суммы .

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *