Дан набор ненулевых целых чисео; признак его завершения - число 0. Вывести колличество чисел в наборе с 3й цифрой 2
А еще - надо бы язык указать)))
Паскаль , справа
Можно попроще , ведь мы в школе, и пишем программу где var begin integer...
Вы в школе? Видите ли, есть школы, и не мало уже, где вот так пишут семиклассники, так что это вовсе не показатель.
Если Вам нужна конкретная версия языка или стиль написания кода - прикладывайте в вопросе примеры, указывайте версию компилятора, ссылайтесь на тот или иной диалект языка.
Чтение мыслей на расстояние пока наука не признала.
Пожалуйста напишите в этих облзначениях.
Порядочные люди в подобных случаях говорят "Спасибо" и признают свою вину в неверном оформлении вопроса.
begin
ReadSeqIntegerWhile(t -> t <> 0)
.Where(t -> Abs(t) mod 1000 div 100 = 2).Count.Print
end.