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.
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.
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.
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.