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

Задача

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

Решение

Переменные:

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

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

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

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

Тема

Циклы

Уровень

Простые задачи

Последняя редакция

Добавить комментарий