Question

Дано натуральное число. Найти наибольшую четную цифру. Если четной цифры нет - вывести "не найдено". 1) n=1357 2) n=503 Мы делали таблицы к задачам (на фото), и по ним нужно написать решение. т.е к каждому числу отдельное решение.

Answer 1

Var n,k : Integer;
Begin
  k:=-1;
  Readln(N);
  While N>0 do
  Begin
   If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
   N:=N div 10;
  end;
  If k=-1 then Writeln('не найдено') else Writeln(k);
end.