Напишите программку, которая в последовательност натуральных чисел определяет, все ли числа

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

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

begin
  if ReadSeqIntegerWhile(t-gt;tlt;gt;0).Any(t-gt;(tlt;100) or (tgt;999)) then
    Writeln('No')
  else Writeln('Yes')
end.

Пример
35 717 405 225 0
No
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт