Pascal. Найти сумму всех четных цифр натурального числа
Мы используем cookie-файлы, чтобы получить статистику, которая помогает нам улучшить сервис для Вас с целью персонализации сервисов и предложений. Вы можете прочитать подробнее о cookie-файлах или изменить настройки браузера. Продолжая пользоваться сайтом без изменения настроек, вы даёте согласие на использование ваших cookie-файлов.
speech bubble

Pascal. Найти сумму всех четных цифр натурального числа

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

 

Задание: Pascal. Найти сумму всех четных цифр числа. Натуральное число вводится с клавиатуры.

 

Дано:

Pascal(Паскаль) - язык программирования

n - число, в котором необходимо найти сумму всех четных цифр

sum - сумма всех четных чисел

 

Решение:

program Hello;
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; //Добавляем остаток от деления на 10
        n := n div 10; //Отсекаем последнюю цифру без остатка
    end;     
    writeln(sum);
end.

Результат:

890377322
12

 

Для комментирования необходимо авторизоваться