Цифра_0
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
сместиться на вектор (0,2)
Цифра_6
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
сместиться на вектор (0,2)
Цифра_7
сместиться на вектор (1,0)
сместиться на вектор (-1,-1)
сместиться на вектор (0,-1)
Цифра_8
Сместиться на вектор (1,0)
Сместиться на вектор (0,-1)
Сместиться на вектор (-1,0)
Сместиться на вектор (0,1)
поднять перо
сместиться на вектор (0,-1)
опустить перо
Сместиться на вектор (1,0)
Сместиться на вектор (0,-1)
Сместиться на вектор (-1,0)
Сместиться на вектор (0,1)
Цифра_9
Сместиться на вектор (1,0)
Сместиться на вектор (0,-1)
Сместиться на вектор (-1,0)
Сместиться на вектор (0,1)
Поднять перо
Сместиться на вектор (1,-1)
Опустить перо
<span>Сместиться на вектор (-1,-1)</span>
Var s1, s2: string; i: integer; begin readln(s1); for i:=1 to length(s1) do if s1[i] in ['0'..'9'] then s2 := s2 + s1[i]; writeln(s2); <span>end.</span>
"<span>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим." - 67 символов (включая знаки препинания и пробелы) Количество информации = 67*16 = 1072 бита "</span><span>Я памятник себе воздвиг нерукотворный." - 38 символов </span>Количество информации = 38*16 = 608 бит