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)
Принтер (англ. printer от print «печать») — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу или полимерную плёнку, малыми тиражами (от единиц до сотен).
Этим принтеры отличаются от полиграфического оборудования и ризографии, которое за счёт печатной формы быстрее и дешевле на крупных тиражах (сотни и более экземпляров).
Принтер — это высокотехнологичное устройство печати, созданное в первую очередь для работы с компьютером. Принтер предназначен для преобразования информации, хранящейся в вычислительном устройстве, из цифровой формы в аналоговый вид для доступного понимания этой информации пользователем и последующего долговременного её хранения.
Получили также распространение и другие устройства печати, такие, как многофункциональные устройства (МФУ), в которых в одном приборе объединены функции принтера, сканера, копировального аппарата и телефакса. Такое объединение рационально с технической и экономической стороны, а также удобно в работе.
Специализированной разновидностью принтера является плоттер.
function BinToOct(s:string):string;
// переводит двоичную триаду в восьмеричную цифру
begin
case s of
'000':Result:='0';
'001':Result:='1';
'010':Result:='2';
'011':Result:='3';
'100':Result:='4';
'101':Result:='5';
'110':Result:='6';
'111':Result:='7';
end
end;
begin
var s2:=ReadlnString('Введите целое двочное число');
var k:=s2.Length mod 3;
if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины
var s8:='';
for var i:=1 to s2.Length div 3 do
s8:=s8+BinToOct(Copy(s2,3*i-2,3));
Writeln(s8);
end.
Пример
Введите целое двочное число 10101100001
2541