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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Ответ:

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

Объяснение:

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