Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что знаки элементов этой последовательности чередуются
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР число: ЦЕЛ; полож, черед: КЛЮЧ; УКАЗ черед := ВКЛ; число := Приём.Число(); полож := число > 0; ПОКА число # 0 ВЫП Вывод.Цепь("^"); ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО черед := ОТКЛ КОН; число := Приём.Число(); полож := число > 0 КОН; ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОН КОН Задание.
Не, это не Кумир.
Это Глагол, диалект Оберона. Несколько более серьёзная вещь.
аж страшно стало
А что тут страшного? Это ж красиво.
читается странно
А английские ЯП лучше читаются, что ли?
кон, черед, вып
По-русски в любом случае понятнее.
английские как-то плавнее
но, спор этот несущественен