Описать функцию, возвращающую сумму четных цифр целого положительного числа К - Free Pascal
Формулировка задачи:
Решение задачи: «Описать функцию, возвращающую сумму четных цифр целого положительного числа К»
- function f(a : longint; is_empty : boolean = true) : integer;
- begin
- if a > 0 then
- f := f(a div 10, is_empty and odd(a mod 10)) +
- (a mod 10) * ord(not odd(a mod 10))
- else
- if is_empty then f := -1 else f := 0;
- end;
- begin
- writeln(f(1557)); // -1
- writeln(f(2557)); // 2
- writeln(f(1557)); // -1
- end.
Объяснение кода листинга программы
В данном коде реализована функция f, которая принимает целочисленный аргумент a и логический аргумент is_empty (по умолчанию true). Если число a больше нуля, то функция рекурсивно вызывает саму себя, урезав число на последнюю цифру (a div 10), и добавляет к результату произведение последней цифры числа на 2 в случае нечётности этой цифры (odd(a mod 10)). В противном случае, если число a меньше или равно нулю, функция проверяет значение переменной is_empty. Если оно равно true, то возвращает -1, иначе возвращает 0. В основной части кода вызывается функция f с аргументами 1557 и 2557, и выводится результат в консоль.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д