ПАСКАЛЬ! ПОМОГИТЕ!
С циклом WHILE (без массива!)
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак.
С циклом WHILE (без массива!)
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак.
More Questions From This User See All
Answers & Comments
Ответ:
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.