Question

Напишите программу, которая в последовательност натуральных
чисел определяет, все ли числа в последовательности трехзначные. Программа получает на вход последовательность чисел заканчивающимся нулем.
Вход: 35,717,405,225,0
Выход:No

Answer 1

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

begin
  if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
    Writeln('No')
  else Writeln('Yes')
end.

Пример
35 717 405 225 0
No