// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadInteger('Введите трехзначное число:').ToString
.ToChararray.Select(c->c.ToDigit).Where(i->i.IsEven).Sum;
if s=0 then Println('В числе нет четных цифр')
else Println(s)
end.
Ввод: 123
Вывод: 2
var
number, sum:integer;
begin
readln(number);
sum := 0;
while(number <> 0) do begin
if (number mod 10) mod 2 = 0 then
sum := sum + (number mod 10);
number := number div 10;
end;
if sum <> 0 then
writeln(sum)
else writeln('Четных цифр в числе нет!');
end.
