Определить, содержит ли последовательность хотя бы 2 равных соседних числа

@tomka90 · Регистрация: 16.04.2010

Уважаемые, форумчаны) помогите пожалуйста бедной девушке решить задачку...

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

@Puporev · 16.04.2010, 21:53

Pascal

uses crt;
var a,b,c,i:integer;
begin
clrscr;
writeln('Введите не менее двух целых чисел, окончание ввода 0:');
readln(a);
i:=1;
c:=0;
repeat
readln(b);
i:=i+1;
if b=a then c:=1;
a:=b;
until(b=0)and(i>1);
if c=1 then write('Есть пара соседних одинаковых чисел')
else write('Нет пары соседних одинаковых чисел');
readln
end.

@tomka90 · 16.04.2010, 22:40 **[ТС]**

ааа... спасибо спасибо))) теперь я точно сдам экзамен)))

@витя123 · 07.09.2015, 18:05

программы же не работает как надо ввести последовательность

@ZX Spectrum-128 · 18.09.2015, 09:52

витя123, все замечательно работает.
А то, что вы не можете ввести числа, как нужно. Ну-у-у-у...

Добавлено через 30 секунд
Число - Enter
Число - Enter
...
0 - Enter

@JokeR.BY · 21.09.2015, 11:18

Puporev, а чего не булева переменная?

Добавлено через 1 минуту
а, не дочитал.

Добавлено через 14 секунд
да ещё и некропостинг...

@tomka90 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 4
		1
	Определить, содержит ли последовательность хотя бы 2 равных соседних числа 16.04.2010, 21:16. Показов 4996. Ответов 5 Метки нет (Все метки) Уважаемые, форумчаны) помогите пожалуйста бедной девушке решить задачку... Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли последовательность хотя бы 2 равных соседних числа. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@tomka90 0 / 0 / 0 Регистрация: 16.04.2010 Сообщений: 4
	16.04.2010, 22:40 [ТС]	3
	ааа... спасибо спасибо))) теперь я точно сдам экзамен))) 0

@витя123 1 / 1 / 1 Регистрация: 06.09.2015 Сообщений: 83
	07.09.2015, 18:05	4
	программы же не работает как надо ввести последовательность 0

@ZX Spectrum-128 6803 / 4562 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	18.09.2015, 09:52	5
	витя123, все замечательно работает. А то, что вы не можете ввести числа, как нужно. Ну-у-у-у... Добавлено через 30 секунд Число - Enter Число - Enter ... 0 - Enter 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	21.09.2015, 11:18	6
	Puporev, а чего не булева переменная? Добавлено через 1 минуту а, не дочитал. Добавлено через 14 секунд да ещё и некропостинг... 0

Опции темы