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

Привет! Я могу помочь с написанием кода на Паскале для решения этой задачи. Вот пример решения без использования массива:

pascalCopy code
program CountOppositeNeighbors;

var
  num, prevNum, count: Integer;

begin
  count := 0;
  readln(num);  // Вводим первое число
  
  while num <> 0 do
  begin
    if (prevNum <> 0) and (prevNum * num < 0) then
      count := count + 1;  // Увеличиваем счетчик, если числа имеют разные знаки
    prevNum := num;
    readln(num);  // Вводим следующее число
  end;
  
  writeln('Количество соседств двух чисел разного знака: ', count);
end.

В этом коде мы используем переменные num и prevNum для хранения текущего и предыдущего чисел соответственно. Переменная count используется для подсчета количества соседств чисел с разными знаками. Мы вводим первое число перед началом цикла, затем проверяем условие (prevNum <> 0) and (prevNum * num < 0), чтобы убедиться, что предыдущее число и текущее число имеют разные знаки. Если условие выполняется, увеличиваем счетчик count. После каждой итерации цикла сохраняем текущее число в prevNum и считываем следующее число num. Когда пользователь вводит 0, цикл завершается, и мы выводим количество соседств чисел с разными знаками.

Надеюсь, это помогло! Если у тебя возникнут еще вопросы, не стесняйся задавать.