Задать вопрос
ИнформатикаИнформатика
23 августа, 02:39

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей ...

-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

Только не через массивы ...

+4
Ответы (1)
  1. 23 августа, 06:11
    0
    Не совсем красиво но без массивов

    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей ... ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей ... -1,3,6,9,-10,7,-2,-8 -1 и 3 не пара 3 и 6 пара их про.
Регистрация Забыл пароль