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

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.

Comments

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

---

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

---

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

---

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

---

Тогда нужно добавить в операторе 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.