В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Puma20050412
Puma20050412
21.10.2020 01:43 •  Информатика

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. и найти произведение их соседей.. -1,3,6,9,-10,7,-2,-8 -1 и 3 не пара 3 и 6 пара их про. =18 6 и 9 пара =54 9 и -10 не пара -10 и 7 не пара 7 и -2 не пара -2 и -8 пара = 16 только не через

Показать ответ
Ответ:
Tusya007
Tusya007
03.07.2020 17:36
Не совсем красиво но без массивов

var cur_num, prev_num: integer;
Begin
    Writeln('Введите последовательность закончив ее нулем');
    read(prev_num);
    repeat
        read(cur_num);
        if cur_num * prev_num > 0 then
            writeln('Пара = ', cur_num * prev_num);
        prev_num := cur_num;
    until cur_num = 0;

End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота