{Выводит узор из 100 произвольно размещенных окружностей произвольного
радиуса и цвета}
uses Graph;
var
grDriver:integer;
grMode: integer;
grPath:string;
ErrCode:integer;
x,y,r: integer; ( координаты центра и радиус окружности }
i: integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:=' ';
InitGraph (grDriver,grMode,grPath);
ErrCode:=GraphResult;
if ErrCode <> grOk then
begin
writeln ('Ошибка инициализации графического режима.1);
writeln ('Для завершения работы нажмите <Enter>');
readln;
Halt(l);
end;
Randomize;
for i:=l to 100 do
begin
x:=Random(640);
y:=Random(480);
r:=Random(240);
Setcolor(Random(16));
Circle(x,y,r);
end;
readin;
end.
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)
Для решения нужно определить количество последовательностей длины 2, 3 и 4, и сложить.
2 = 2^2 = 4 последовательности
3 = 2^3 = 8 последовательностей
4 = 2^4 = 16 последовательностей
16+8+4 = 28 последовательностей всего.