Первый способ (большой):
использовать Чертежник
алг Богдан_1
нач
опустить перо
сместиться в точку(0, 11)
сместиться в точку(6, 11)
поднять перо
сместиться в точку(0, 6)
опустить перо
сместиться в точку(6, 6)
сместиться в точку(6, 0)
сместиться в точку(0, 0)
поднять перо
сместиться в точку(8, 0)
опустить перо
сместиться в точку(8, 11)
сместиться в точку(14, 11)
сместиться в точку(14, 0)
сместиться в точку(8, 0)
поднять перо
сместиться в точку(16, 0)
опустить перо
сместиться в точку(16, 11)
сместиться в точку(22, 11)
поднять перо
сместиться в точку(22, 0)
опустить перо
сместиться в точку(22, -2)
сместиться в точку(22, 0)
сместиться в точку(30, 0)
сместиться в точку(30, -2)
сместиться в точку(30, 0)
сместиться в точку(28, 0)
сместиться в точку(28, 11)
сместиться в точку(24, 11)
сместиться в точку(24, 0)
поднять перо
сместиться в точку(32, 0)
опустить перо
сместиться в точку(32, 11)
сместиться в точку(38, 11)
сместиться в точку(38, 0)
сместиться в точку(38, 5)
сместиться в точку(32, 5)
поднять перо
сместиться в точку(40,0)
опустить перо
сместиться в точку(40, 11)
сместиться в точку(40, 5)
сместиться в точку(46, 5)
сместиться в точку(46, 11)
сместиться в точку(46, 0)
кон
Второй способ (короткий):
использовать Чертежник
алг Богдан_2
нач
написать(30, "Богдан")
кон
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.
Так как 8 и 16 являются целыми степенями 2, то для перевода из двоичной системы в восьмеричную и шестнадцатеричную нужно сгруппировать двоичные цифры по 3 или 4 соответственно (в триады и тетрады), и каждая группа будет обозначать ровно одну цифру новой системы. Точно так же для перевода из десятичной в "сторичную" цифры группировались бы по две. В случае нехватки цифр слева можно добавлять нули.
![101011001_2=101~011~001_2=531_8;\\ 101011001_2=0001~0101~1001_2=159_{16};\\ 1011001_2=001~011~001_2=131_8;\\ 1011001_2=0101~1001_2=59_{16}.](https://tex.z-dn.net/?f=101011001_2%3D101~011~001_2%3D531_8%3B%5C%5C%0A101011001_2%3D0001~0101~1001_2%3D159_%7B16%7D%3B%5C%5C%0A1011001_2%3D001~011~001_2%3D131_8%3B%5C%5C%0A1011001_2%3D0101~1001_2%3D59_%7B16%7D.)