Папки, программы, документы
Var
a, k: integer;
begin
readln(a);
while a > 0 do
begin
k := k + 1;
a:= a div 10;
end;
writeln(' k =', k);
end.
Пример:
105 k =3
66 k = 2
1 k =1
104 k =3
11 k =2
94 k =2
Сначало переводим его из 2-чной в 10-тиричную. Вышло 102, теперь
102 делим на 8. Вышло 12, остаток 6. 12 делим на 8, вышло 1, остаток 4.
Итого вышло число 146
<span>1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов</span>