Это символ называется "собака" в основном используется в электронных постах, знаменитый символ молодёжи
Может, как-то так:
а) тишь-тушь-туша-тура-бура-буря
б) тьма-тема-рема-рама-рана-кана-канн-каон-клон-слон-стон-стан-сван-сват-свет
тьма-тема-сема-сима-сила-кила-килт-киот-крот-грот-глот-глет-слет-свет
1235, т. к. они нарисованы не бумаге и мы можем их увидеть
Function pr(a, b:integer):integer; var tmp:integer;begin if b = 1 then pr := a else begin tmp := pr(a, b shr 1); inc(tmp, tmp); if b and 1 = 1 then inc(tmp, a); pr := tmp; end;<span>end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)</span>