Дано натуральное число. Найти наибольшую четную цифру. Если четной цифры нет - вывести "не найдено".
1) n=1357
2) n=503
Мы делали таблицы к задачам (на фото), и по ним нужно написать решение. т.е к каждому числу отдельное решение.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
