Найти минимальную цифру числа

@Jedidie · Регистрация: 04.10.2013

Author24 — интернет-сервис помощи студентам

Пользователь вводит натуральное число. Найти минимальную цифру этого числа.

@Kirill R · 20.01.2014, 14:36

Pascal

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.

@Jedidie 0 / 0 / 0 Регистрация: 04.10.2013 Сообщений: 8
		1
	Найти минимальную цифру числа 20.01.2014, 14:04. Показов 3100. Ответов 1 Метки нет (Все метки) Пользователь вводит натуральное число. Найти минимальную цифру этого числа. 0

	20.01.2014, 14:36

Найти минимальную цифру числа

Решение