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);
<span>end.</span>
22байта=176бит
15кбайта=117760байт
156=163577856байт
Ответ 100% правильный: 2D,D8
<span>d)if (x>y) and (y>z) then a:=x+y+z</span>