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

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

Задать свой вопрос
1 ответ
ОТДЕЛ Задание+;
Употребляет Вывод ИЗ "...\Отделы\Размен\", Приём;

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

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

КОН Задание.
Маргарита Пичукова
Не, это не Кумир.
Ромка Теремецкий
Это Глагол, диалект Оберона. Несколько более серьёзная вещь.
Виталий Чупарнов
аж ужасно стало
Tatjana Aproskina
А что здесь страшного? Это ж красиво.
Роман Поплевичев
читается удивительно
Катюша Кутаисова
А английские ЯП превосходнее читаются, что ли?
Неяглова Людмила
кон, черед, вып
Амелия
По-русски в любом случае понятнее.
Сибгатулов Анатолий
английские как-то плавнее
Андрюха
но, спор этот несущественен
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт