Question

Напишите с клавиатуры натуральное число и находит наименьшее чётную цифру в его десятиной записи

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (min,n):=(10,ReadInteger);
  while n>0 do begin
    var d:=n mod 10;
    if d.IsEven and (d<min) then min:=d;
    n:=n div 10
    end;
  if min=10 then Writeln('В числе нет четных цифр')
  else Writeln('Минимальная четная цифра ',min)
end.

Примеры
162083
Минимальная четная цифра 0

153379
В числе нет четных цифр

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger.ToString.Select(t->t.ToDigit).Where(x->x.IsEven);
if a.Count=0 then write('нет четных цифр') else write('минимальная четная: ',a.Min);
end.