Question

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

Answer 1

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