<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
<u>Пример</u>
15334
2
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"00100110101101110000111110110110"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
00100110{2} = 38{10}
10110111{2} = 183{10}
00001111{2} = 15{10}
10110110{2} = 182{10}
IP = 38.183.15.182
10+7=17
роде правильно !!!!!!!!