Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей..
-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
Только не через массивы....
Ответы
Ответ дал:
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.
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
я по строчно должен считывать данные, сравнивать пары и если нужно делать умножение, но я туплю...
Ответ дал:
0
ну сам алгоритм я тебе и так написала, а считывание из файла и прочую байду это уже самостоятельно сделай
Ответ дал:
0
попытаюсь, спасибо большое)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад