Ответ:
const s:string='0123456789ABCDEF';//цифры СС
var n,m,ch:integer;
r:string;
begin
write('Введите число в 10 СС: ');
readln(ch);
write('Введите СС: ');
readln(m);
write('В ',m,' CC число ',ch);
if ch=0 then r:='0' else r:='';
while ch>0 do
begin
r:=s[ch mod m + 1]+r;//берем остаток от деления на CC и эту цифру пишем в начало строки
ch:=ch div m;//берем целое от деления на CC
end;
write(' равно ',r)
end.
В 1-ой 1 раз, во 2-ой 2 раза, в 3-ей 4 раза и т.д.
Получается закономерность: кол-во A = 2^(n-1), где n - номер строки
<span>В 8-ой 2^(8-1)=2^7=128
в десятой </span><span>k = 2^(i-1) = 2^9 = </span><span>512</span>
Перевод из двоичной системы в восьмеричную очень прост. Влево и вправо от запятой (десятичной точки) двоичное число разбивается на группы, содержащие три разряда (триАды). А затем каждая триада заменяется соответствующей восьмеричной цифрой.
<span>1 100 101(2) = 145(8)</span>