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

Question

Напишите программу, котороая вводит последовательгость чисел заканчивающихся нудем и определяет, верно ли, что знаки в этой последовательности чередуются. PASCAL.

Answer 1

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

begin
  ReadSeqIntegerWhile(t->t<>0).Pairwise.All(t->t[0]*t[1]<0).Println<br>end.

Примеры
-6 5 -3 8 -2 7 -10 9 0
True

-6 5 -3 8 -2 -7 -10 9 0
False