0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 27
1

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

07.11.2016, 16:10. Показов 1428. Ответов 4
Метки нет (Все метки)

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

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

Решите пожалуйста с объяснениями.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2016, 16:10
Ответы с готовыми решениями:

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

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

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

Как определить, содержит последовательность хотя бы два равных соседних числа
Нужно написать в VBA. Заранее благодарю=) Вводится последовательность чисел, 0 - конец...

4
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.11.2016, 18:55 2
Лучший ответ Сообщение было отмечено VasyaPupkin144 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
1
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 27
07.11.2016, 19:32  [ТС] 3
Спасибо

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

Добавлено через 18 секунд
Это не мой вариант ))))))00))( оказался
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.11.2016, 19:33 4
Мне застрелиться?
0
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 27
07.11.2016, 21:24  [ТС] 5
Не стоит , спасибо за решение.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2016, 21:24
Помогаю со студенческими работами здесь

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

Определить, содержит ли массив хотя бы два равных соседних числа
вот то что смог сделать, но программа не работает ((( Sub Slava1() Dim a(1 To 10) As Integer...

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками
Не могу найти ошибку в программе!!! Условие: вводится последовательность ненулевых чисел, 0- ее...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru