Если 157 дано в 10ой сс: 157(10) -->10011101(2)--> {справа налево отсчитываешь по 3 цифры, смотришь чему они соответствуют в 8ой сс} -->235(8)-->{в двоичной записи справа налево отсчитываешь по 4 цифры, смотришь, чему они соответствуют в 16ой сс}--->9D(16)
Program N94780249; const s: longint = 0; var x: longint; t: string; e: integer; begin writeln('Вводите целые числа (0 - окончание ввода) : '); repeat repeat write('> '); readln(t); val(t, x, e); if e <> 0 then writeln('Ошибка! Повторите ввод. ') until e = 0; s += x until x = 0; if s = 0 then writeln('Числа не вводились. ') else writeln('Сумма введённых чисел = ', s, #10); write('Для завершения работы нажмите Enter...'); readln end.
157(10) -->10011101(2)--> {справа налево отсчитываешь по 3 цифры, смотришь чему они соответствуют в 8ой сс} -->235(8)-->{в двоичной записи справа налево отсчитываешь по 4 цифры, смотришь, чему они соответствуют в 16ой сс}--->9D(16)
157| 1
78| 0
39| 1
19| 1
9| 1
4| 0
2| 0
1| 1