Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то ответом...

Question

Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то ответом будет 1. Язык паскаль

Answer 1

var min,num:int64;
begin
  writeln('Vvedite chislo');
  readln(num);
  min:=num mod 10;
  while(num>0) do begin
    if(min>(num mod 10)) then min:=num mod 10;
    num:=num div 10;
  end;
  writeln(min);
  readln;
  end.