Question

Задача:

Среди заданных чисел найти количество трехзначных чисел.

Формат ввода:

Элементы последовательности (целые числа в диапазоне от -30000 до 30000) заданы по одному на строке через пробел. Признак окончание последовательности - число 0 (в последовательность не входит).

Формат вывода:

Целое число.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t).Between(100,999))
      .Count.Println
end.

Пример
4492 13638 -4490 418 13985 -426 5805 -26574 28710 -378 17920 1886 -24200 0
3