Дан набор ненулевых целых чисео; признак его окончания - число 0.

А еще - надобно бы язык указать)))

Паскаль , справа

Можно поординарнее , ведь мы в школе, и пишем программку где var begin integer...

Вы в школе? Видите ли, есть школы, и не мало теснее, где вот так пишут семиклассники, так что это совсем не показатель.

Если Для вас нужна определенная версия языка либо стиль написания кода - прикладывайте в вопросе примеры, указывайте версию компилятора, ссылайтесь на тот либо другой диалект языка.

Чтение идей на расстояние пока наука не признала.

Пожалуйста напишите в этих облзначениях.

Нравственные люди в сходственных случаях разговаривают "Спасибо" и признают свою вину в неправильном оформлении вопроса.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 ReadSeqIntegerWhile(t -gt; t lt;gt; 0)

     .Where(t -gt; Абс(t) mod 1000 div 100 = 2).Count.Print

end.

Пример

131 -1085 -1031 -1278 984 259 5 704 1268 -1119 -833 845 327 -615 -252 -761 682 -563 -1264 -426 0

5