Question

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

Answer 1

Ввод: 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.

Answer 2

// 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.