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

Answer 2

Для написания программы, которая определит, все ли числа в последовательности трехзначные, можно использовать следующий код на языке Python:

pythonCopy code
def is_all_three_digit(numbers):
    for num in numbers:
        if num == 0:
            break  # Прекратить проверку, если встретился ноль (конец последовательности)
        if num < 100 or num >= 1000:
            return False
    return True

# Входные данные в виде строки, разделенной запятыми, затем конвертируем в список чисел
input_sequence = input("Введите последовательность чисел, разделенных запятыми (заканчивающуюся нулем): ")
numbers_list = [int(num.strip()) for num in input_sequence.split(',')]

result = is_all_three_digit(numbers_list)

if result:
    print("Yes")
else:
    print("No")

Пример работы программы:

scssCopy code
Введите последовательность чисел, разделенных запятыми (заканчивающуюся нулем): 35,717,405,225,0
No

Программа считывает последовательность чисел от пользователя, разделенных запятыми, затем проверяет, являются ли все числа трехзначными. Если хотя бы одно число не удовлетворяет этому условию, программа выведет "No", иначе выведет "Yes".