Дано натуральное число, в котором есть повторяющиеся цифры. Найти количество наименьших цифр этого числа

Ответ:

Объяснение:

var  

x, t: longint;  

begin  

write('Введите число: ');  

readln(x);  

while x>=10 do begin  

t:=t+1;  

x:=x div 10 end;  

write('количество цифр чисда: ',t+1);  

readln;  

end.

Ответ:

Объяснение:

program Dekio;

var

min,i :integer;

begin

writeln('Введите число');

readln(i);

min:=i;

repeat

if i mod 10 < min then

min :=i mod 10;

i:=i div 10;

until i=0;

writeln('Наименьшая цифра');

writeln(min);

end.

если нужен был ответ  в виде программы, то вот, не за что)