Question

Дано целое число n.выяснить,сколько раз в этом числе встречается его минимальная цифра. pascal

Answer 1

Var a,b,c,k,kol:
integer;
begin
writeln ('введите число');
readln(a);
kol:=1;
c:=10;
while (a<>0) do begin 
b:=a mod
10; 
 if (b<c) then c:=b;   
 if b=k then kol:=kol+1; 
a:=a div 10; 
k:=c;
end;
writeln('минимальная цифра ==> ',c);
writeln('в этом числе этих цыфр ==> ',kol);
end.

Answer 2

Var s: string;
   ch: char;
    i: integer;
begin
  write('строка:  ');
   readln(s);
  foreach ch in s.Sorted do
   if ch = s.Sorted.First then i:=i+1;
  writeln('цифра = ',s.Sorted.First,' ',i,' раз(а) ');
end.