Утверждение: "Значение любого элемента этой последовательности – одно из трех чисел целых положительных чисел. Четвертого числа не встречается.".

[vas23052003]

Дана числовая последовательность, значения ее элементов могут быть не уникальны, и не превышают по модулю число 32000. Определить, верно ли утверждение, вывести на экран значение логической константы True или False.
Утверждение: "Значение любого элемента этой последовательности – одно из трех чисел целых положительных чисел. Четвертого числа не встречается.".
Конец последовательности – число "ноль". Проверка пустой последовательности дает - False.


Пример работы программы:
Ввод: 1 2 3 3 2 1 1 2 3 0
Вывод: True
Ввод: 1 2 3 4 3 2 3 2 1 0
Вывод: False
Ввод: 1 2 1 2 1 1 1 1 1 0
Вывод: True

[Serge_Bliznykov]

несложно. заведите массив из трёх элементов и счётчик-индекс в этом массиве (пусть он называется index)( и в начале он равен нулю - чисел в массиве нет).

index := 0;
устанавливаем результат в TRUE;
дальше в цикле повторять
   получаем из строки очередное Число.
   если оно не равно нулю (не конец)
       тогда - проверяем от 1 до index есть такое значение в массиве. 
           если нашли,  ничего не делаем. 
           иначе (если не нашли) - увеличиваем index на 1 (index := index+1)
                  если index > 3 - устанавливаем результат в FALSE, прерываем цикл
                  иначе записываем очередное число в массив mas[Index} := Число;       
выполняем цикл, пока число не станет равным нулю.
выводим результат

[digitalis]

Эх, перевести бы этот алгоритм в исходник, понятный компилятору (это проще) и студенту (вот тут посложнее) .