Question

Вводится последовательность натуральных чисел. Признак конца ввода – 0. Определить количество соседств двух чисел разного знака.
Желательно на паскале, и без массива.

Answer 1

program NumberOfDifferences;

var sum, a, b: integer;

begin

   sum := 0;

   readln(a);

   b := a;

   while a <> 0 do begin  

       readln(a);

       if ((a < 0) and (b > 0)) or ((a > 0) and (b < 0)) then

           sum := sum + 1;

       b := a;

       end;

  writeln(sum);

end.

Answer 2

ты считаешь только пары чисел

Answer 3

>Определить количество соседств двух чисел
А разве не пары нужно?)

Answer 4

тут именно в последовательности

Answer 5

То есть если есть пара чисел, например, 1 и -1, то следующее число не может образовать пару с -1. Я правильно понимаю?

Answer 6

Тогда нужно добавить в операторе if дополнительный ввод числа
program HelloWorld;
var sum, a, b: integer;
begin
sum := 0;
readln(a);
b := a;
while a <> 0 do begin
readln(a);
if ((a < 0) and (b > 0)) or ((a > 0) and (b < 0)) then begin
sum := sum + 1;
readln(a);
end;
b := a;
end;
writeln(sum);
end.