Напишите программу, котороая вводит последовательгость чисел заканчивающихся нудем и определяет, верно ли, что знаки в этой последовательности чередуются. pascal.
Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Pairwise.All(t->t[0]*t[1]<0).Println
end.
Примеры
-6 5 -3 8 -2 7 -10 9 0
True
-6 5 -3 8 -2 -7 -10 9 0
False