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