Найти сумму четных цифр числа

Задача

Вводится натуральное число. Найти сумму четных цифр, входящих в его состав.

Решение

Переменные:

  • n - исходное число,
  • sum - сумма четных чисел.

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

  1. Присвоить переменной sum значение 0.
  2. Пока значение n больше нуля выполнять нижеследующее.
    1. Проверить последнюю цифру числа на четность путем нахождения остатка от деления на 2. (Мы можем делить все число, предварительно не извлекая последнюю цифру, так как при таком делении по-сути проверяется четность последней цифры.)
    2. Если цифра четная, добавить ее к sum. (Цифра извлекается нахождением остатка от деления на 10.)
    3. Избавиться от последней цифры числа путем ее деления нацело на 10.
  3. Вывести значение sum на экран.
var 
    n: longint;
    sum: integer;
 
begin
    readln(n); 
 
    sum := 0;
 
    while n > 0 do begin
        if n mod 2 = 0 then
            sum := sum + n mod 10;
        n := n div 10;
    end;    
 
    writeln(sum);
end.

Если требуется посчитать сумму нечетных цифр, то в заголовке условного оператора следует использовать логический знак "не равно". В Паскале обозначается как "<>".