Дано целое число. Вывести на экран значение самой младшей его цифры - Pascal ABC
Формулировка задачи:
Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.
Решение задачи: «Дано целое число. Вывести на экран значение самой младшей его цифры»
textual
Листинг программы
readln(n); n:=abs(n); m:=9; while n>0 do begin if n mod 10<m then m:=n mod 10; n:=n div 10; end; write(m);