Question

ПАСКАЛЬ! ПОМОГИТЕ!
С циклом WHILE (без массива!)

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

Answer 1

Ответ:

Program test;

var a,b,count:integer;

   str : string;

 

begin

 writeln('Для остановки введите СТОП');

 

 while true do

   

 begin

   writeln('Введите число');

   readln(str);

   if (str = 'СТОП') then break;

   a := StrToInt(str);

   if ((a>0) and (b<0)) or ((a<0) and (b>0)) then count := count + 1;;

   b := a;

   

 end;

 writeln('В последовательности знак был поменян ' + count + ' раз.');

end.