5 Сколько значащих цифр в записи десятичного числа 555 в системе счисления с основанием 8?

Переведём 555 из 10-ной в 8-ю систему:

ответ: 4 значащих цифры [1053].

2 единицы в двоичной записи числа 1025

10000000001

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.