Дан набор ненулевых целых чисео; признак его завершения - вопрос №95132800 от ksyuksu1234 13.11.2020 18:16

Question

Информатика: Дан набор ненулевых целых чисео; признак его завершения - число 0. вывести колличество чисел в наборе с 3й цифрой 2

ksyuksu1234 · Answer

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 05