Содержание:
Задание: 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