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

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

16.04.2010, 21:16. Показов 4996. Ответов 5
Метки нет (Все метки)

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

Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли последовательность хотя бы 2 равных соседних числа.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2010, 21:16
Ответы с готовыми решениями:

Заданы три числа Определить есть ли среди них хотя бы одна пара равных по величине
помогите решить задачу. Заданы три числа Определить есть ли среди них хотя бы одна пара равных по...

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

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

Определить, содержит ли последовательность хотя бы одну пару равных соседних элементов
дана последовательность из вещественных чисел которые вводятся по одному. за последним числом...

5
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
16.04.2010, 21:53 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.
1
0 / 0 / 0
Регистрация: 16.04.2010
Сообщений: 4
16.04.2010, 22:40  [ТС] 3
ааа... спасибо спасибо))) теперь я точно сдам экзамен)))
0
1 / 1 / 1
Регистрация: 06.09.2015
Сообщений: 83
07.09.2015, 18:05 4
программы же не работает как надо ввести последовательность
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
18.09.2015, 09:52 5
витя123, все замечательно работает.
А то, что вы не можете ввести числа, как нужно. Ну-у-у-у...

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

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

Добавлено через 14 секунд
да ещё и некропостинг...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.09.2015, 11:18
Помогаю со студенческими работами здесь

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

Определите, содержит ли последовательность хотя бы одну пару равных соседних элементов
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем и состоящая более чем из...

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

Данны три вещественных числа a,b,c.Определить имеется ли среди них хотя бы одна пара равных между собой чисел.
братцы составте программу полность:)


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

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

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