Question

Написать произвольную рекурсивную программу для pascal ABC использующую repeat и/или else и вычисляющую... что-нибудь, главное чтоб была примерно на ~15 строк (можно и больше и меньше),чтоб работала и короткое объяснение её работы

Answer 1

Ответ:

прога с комментариями на фото

Объяснение:

вводим последовательность цифр через ентер, концом последовательности значит цифра 0, считаем среднее арифметическое четных цифр, если не было введено ни одного четного, выводим, нет четных

Answer 2

Конечно, вот пример рекурсивной программы на Pascal ABC, которая вычисляет факториал числа с использованием конструкции repeat:

pascalCopy code
program RecursiveFactorial;

function Factorial(n: Integer): Integer;
begin
    if n = 0 then
        Factorial := 1
    else
        Factorial := n * Factorial(n - 1);
end;

var
    num: Integer;

begin
    Write('Введите число: ');
    ReadLn(num);
    
    if num < 0 then
        WriteLn('Факториал определен только для неотрицательных чисел.')
    else
        WriteLn('Факториал ', num, '! = ', Factorial(num));
end.

Объяснение работы программы:

1. Программа начинается с определения функции Factorial, которая рекурсивно вычисляет факториал числа.
2. В основной части программы, пользователю предлагается ввести число.
3. Если введенное число отрицательное, программа выводит сообщение об ошибке.
4. В противном случае, программа вызывает функцию Factorial для вычисления факториала введенного числа и выводит результат.

Программа рекурсивно вызывает саму себя с уменьшенным на 1 аргументом до тех пор, пока не достигнет базового случая n = 0. Затем она начнет "развертывание" рекурсии, умножая каждое значение n на результат рекурсивного вызова с n - 1, пока не достигнет исходного введенного числа.