Вложенные циклы: определить, содержит ли последовательность хотя бы два равных соседних числа

@VasyaPupkin144 · Регистрация: 19.10.2016

Вводятся последовательность из n целых чисел (n задается с клавиатуры) Определить , содержит ли последовательность хотя бы два равных соседних числа .

(НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ МАССИВЫ)

Решите пожалуйста с объяснениями.

@Puporev · 07.11.2016, 18:55

Pascal

var n,i,a,b,k:integer;
begin
write('Сколько чисел ввести n>1 n=');
readln(n);
writeln('Введите ',n,' целых чисел');
readln(a);
k:=0;
for i:=2 to n do
 begin
  readln(b);
  if b=a then k:=1;
  a:=b;
 end;
if k=1 then write('Есть 2 одинаковых соседних числа')
else write('Нет двух одинаковых соседних чисел')
end.

@VasyaPupkin144 · 07.11.2016, 19:32 **[ТС]**

Спасибо

Добавлено через 3 минуты
Это не мой вариант ))))))00))(

Добавлено через 18 секунд
Это не мой вариант ))))))00))( оказался

@Puporev · 07.11.2016, 19:33

Мне застрелиться?

@VasyaPupkin144 · 07.11.2016, 21:24 **[ТС]**

Не стоит , спасибо за решение.

@VasyaPupkin144 0 / 0 / 0 Регистрация: 19.10.2016 Сообщений: 27
		1
	Вложенные циклы: определить, содержит ли последовательность хотя бы два равных соседних числа 07.11.2016, 16:10. Показов 1428. Ответов 4 Метки нет (Все метки) Вводятся последовательность из n целых чисел (n задается с клавиатуры) Определить , содержит ли последовательность хотя бы два равных соседних числа . (НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ МАССИВЫ) Решите пожалуйста с объяснениями. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@VasyaPupkin144 0 / 0 / 0 Регистрация: 19.10.2016 Сообщений: 27
	07.11.2016, 19:32 [ТС]	3
	Спасибо Добавлено через 3 минуты Это не мой вариант ))))))00))( Добавлено через 18 секунд Это не мой вариант ))))))00))( оказался 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	07.11.2016, 19:33	4
	Мне застрелиться? 0

@VasyaPupkin144 0 / 0 / 0 Регистрация: 19.10.2016 Сообщений: 27
	07.11.2016, 21:24 [ТС]	5
	Не стоит , спасибо за решение. 0

Опции темы

Вложенные циклы: определить, содержит ли последовательность хотя бы два равных соседних числа

Решение