В двоичном алфавите используют цифры: 0,1
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t).Between(100,999))
.Count.Println
end.
<u>Пример</u>
4492 13638 -4490 418 13985 -426 5805 -26574 28710 -378 17920 1886 -24200 0
3