Подсчитать количество пар следующих подряд равных чисел

@NiFROM · Регистрация: 15.11.2011

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

в последовательности чисел,вводимых с клавиатуры , подсчитать количество пар следующих подряд равных чисел. Признак завершения ввода : два нуля подряд.

@КонецСвета · 27.12.2011, 19:56

если последние 0 не учитываются, а являются всего лишь признаком завершения, тогда так

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) and (pn=0);
writeln('В последовательности ',k-1,' пар(ы) соседних равных элементов');
readkey
end.

@NiFROM 0 / 0 / 0 Регистрация: 15.11.2011 Сообщений: 57
		1
	Подсчитать количество пар следующих подряд равных чисел 27.12.2011, 19:48. Показов 2252. Ответов 1 Метки нет (Все метки) в последовательности чисел,вводимых с клавиатуры , подсчитать количество пар следующих подряд равных чисел. Признак завершения ввода : два нуля подряд. 0

	27.12.2011, 19:56

Подсчитать количество пар следующих подряд равных чисел

Решение