Предмет: Информатика,
автор: ewanfedorovich
Дан набор ненулевых целых чисео; признак его завершения - число 0. Вывести колличество чисел в наборе с 3й цифрой 2
Аноним:
А еще - надо бы язык указать)))
Паскаль , справа
Можно попроще , ведь мы в школе, и пишем программу где var begin integer...
Вы в школе? Видите ли, есть школы, и не мало уже, где вот так пишут семиклассники, так что это вовсе не показатель.
Если Вам нужна конкретная версия языка или стиль написания кода - прикладывайте в вопросе примеры, указывайте версию компилятора, ссылайтесь на тот или иной диалект языка.
Чтение мыслей на расстояние пока наука не признала.
Пожалуйста напишите в этих облзначениях.
Порядочные люди в подобных случаях говорят "Спасибо" и признают свою вину в неверном оформлении вопроса.
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t -> t <> 0)
.Where(t -> Abs(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
Похожие вопросы
Предмет: Алгебра,
автор: pollyandhercats
Предмет: Русский язык,
автор: sandep
Предмет: Алгебра,
автор: Аноним
Предмет: Обществознание,
автор: mymail2059
Предмет: Алгебра,
автор: ilia002