Паскаль! !
с циклом while (без массива! )

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

shapakinandrejozt2iy shapakinandrejozt2iy    1   09.08.2019 15:14    0

Ответы
ososkovaluba ososkovaluba  04.10.2020 07:34

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика