Question

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

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;

ПЕР
  число: ЦЕЛ;
  полож, черед: КЛЮЧ;

УКАЗ
  черед := ВКЛ;
  число := Приём.Число();
  полож := число > 0;
  ПОКА число # 0 ВЫП
    Вывод.Цепь("^");
    ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО
      черед := ОТКЛ
    КОН;
    число := Приём.Число();
    полож := число > 0
  КОН;
  ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОН

КОН Задание.

Answer 2

А английские ЯП лучше читаются, что ли?

Answer 3

кон, черед, вып

Answer 4

По-русски в любом случае понятнее.

Answer 5

английские как-то плавнее

Answer 6

но, спор этот несущественен