Вводится последовательность ненулевых чисел, 0 конец последовательности. Найти,

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

Задать свой вопрос
1 ответ
var a,b,k:integer;
begin
write('a=');readln(a);
k:=0;
while alt;gt;0 do
 begin
 b:=a;
 write('a=');readln(a);
 if a*blt;0 then k:=k+1;
 end;
writeln('k=',k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт