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

Question

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

Comments

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

---

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

---

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

Answer 1

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

---

Answer 2

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

---