Вопрос по информатике:
Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей..
-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
Только не через массивы....
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.04.2018 22:01
- Информатика
- remove_red_eye 11508
- thumb_up 26
Ответы и объяснения 1
Не совсем красиво но без массивов
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.
- 11.04.2018 05:21
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.