Определить, сколько в последовательности пар соседних равных элементов

@Safari · Регистрация: 24.12.2011

Студворк — интернет-сервис помощи студентам

Завтра зачёт по Информатике, большинство программ я сделал, а вот с этой сижу мучаюсь, можете помочь?
Вот условие:
_______________
Вводится последовательность ненулевых чисел; 0 - конец последовательности. Определить, сколько в ней пар соседних равных элементов.
_______________

Буду очень благодарен!

Заранее Огромное Спасибо!

Добавлено через 3 часа 38 минут
Только без Массивов!

@КонецСвета · 27.12.2011, 17:07

Pascal

uses crt;
var n,pn,k: integer;
begin
write('Введите число ');
readln(n);
repeat
pn:=n;
write('Введите число ');
readln(n);
if n=pn then inc(k);
until n=0;
writeln('В последовательности ',k,' пар(ы) соседних равных элементов');
readkey
end.

@Safari · 27.12.2011, 17:11 **[ТС]**

Большое спасибо за помощь!!!

@Safari 1 / 1 / 1 Регистрация: 24.12.2011 Сообщений: 6
		1
	Определить, сколько в последовательности пар соседних равных элементов 27.12.2011, 16:46. Показов 3048. Ответов 2 Метки нет (Все метки) Завтра зачёт по Информатике, большинство программ я сделал, а вот с этой сижу мучаюсь, можете помочь? Вот условие: _______________ Вводится последовательность ненулевых чисел; 0 - конец последовательности. Определить, сколько в ней пар соседних равных элементов. _______________ Буду очень благодарен! Заранее Огромное Спасибо! Добавлено через 3 часа 38 минут Только без Массивов! 0

@Safari 1 / 1 / 1 Регистрация: 24.12.2011 Сообщений: 6
	27.12.2011, 17:11 [ТС]	3
	Большое спасибо за помощь!!! 0

Опции темы

Определить, сколько в последовательности пар соседних равных элементов

Решение