Необходимо сделать программу в pascalABC. Условие задачи: Вводится 3-ёх значное число,

Каких чисел, если число вводится одно? Может быть, цифр?

Ну допустим число 123, мы видим, что есть чётное число 2, 1 и 3 не является чётным числом. Выходит если все чётные числа сложить получится 2.

Вы упрямо нарекаете цифру числа числом?

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var s:=ReadInteger('Введите трехзначное число:').ToString

     .ToChararray.Select(c-gt;c.ToDigit).Where(i-gt;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 lt;gt; 0) do begin

       if (number mod 10) mod 2 = 0 then

           sum := sum + (number mod 10);

       number := number div 10;

   end;

   if sum lt;gt; 0 then

       writeln(sum)

   else writeln('Четных цифр в числе нет!');

end.