если можно отправьте файл excel и можно сфоткать и отправить это мне​

11211

Объяснение:

число 82 = 80 + 2 (состоит из 8 десятков и 2 единиц)

числа 6 (состоит из 6 единиц)

команда 1 увеличивает число на 1 единицу

команда 1 переводит число в новый разряд (из единиц команда получает десятки, из десятков команда получает сотни и т.д.)

следователь самый короткий путь это привести число 6 к количеству десятков в числе 82 (командой 1), затем привести полученное число в новый разряд (командой 2),потом привести полученное число к числу 82 (командой 1)

6 + 1 = 7     (команда 1)

7 + 1 = 8     (команда 1)

8 * 10 = 80     (команда 2)

80 + 1 = 81     (команда 1)

81 + 1 = 82     (команда 1)

ответ: 1909

Var
 s : String;
 n : Integer;
Function IncS(a : String) : String;
Begin
  a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
  If a[Length(a)]>'D' then
    IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
  else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
  Check:=False;
  If (Pos('A',a)>0) then
  Begin
    Delete(a,Pos('A',a),1);
    If (Pos('A',a)>0) then Check:=True;
  end;
end;
Begin
  s:=''; n:=0;
  While s<>'' do
  Begin
  {  Writeln(s);  }
    If Check(s) then Inc(n);
    s:=IncS(s);
  end;
  Writeln(n);
end.