Найти максимальную цифру натурального числа - PascalABC.NET
Формулировка задачи:
( с помощью рекурсивной функции или процедуры). Найти максимальную цифру натурального числа.
Решение задачи: «Найти максимальную цифру натурального числа»
textual
Листинг программы
function mx(i : int64) : integer; begin if i = 0 then result := 0 else begin result := mx(i div 10); if i mod 10 > result then result := i mod 10; end; end;