Вводится натуральное число. Найти сумму четных цифр, входящих в его состав.
Переменные:
Алгоритм решения задачи:
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
Если требуется посчитать сумму нечетных цифр, то в заголовке условного оператора следует использовать логический знак "не равно". В Паскале обозначается как <>
.