Найти минимальную цифру числа - 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.