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

Желательно на паскале, и без массива.

Question

Информатика

Андро

4 апреля, 15:14

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

Желательно на паскале, и без массива.

+5

Ответы (1)

Знаете ответ?

Кэтрин · 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)) or ((a > 0) and (b < 0)) then

sum : = sum + 1;

b : = a;

end;

writeln (sum) ;

end.