Дано целое число. Вывести на экран значение самой младшей его цифры - 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);

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы