Найти минимальную цифру числа - Pascal ABC
Формулировка задачи:
Пользователь вводит натуральное число. Найти минимальную цифру этого числа.
Решение задачи: «Найти минимальную цифру числа»
textual
Листинг программы
var str :string;//натуральное число min:char;//мин. число i :byte; //счетчик begin writeln('Input number'); readln(str); min := '9'; for i := 1 to length(str) do if str[i] < min then min := str[i]; writeln('Min digit is ',min); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д