Найти сумму четных цифр числа | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

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

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

Переменные:

  • 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.

Примеры выполнения программы:

3456
10
13562
8

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