Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Бинарные деревья, заданные массивом https://www.cyberforum.ru/ pascal/ thread117743.html Проблема с бинарными деревьями. Вообщем бинарное дерево должно задаваться массивом в текстовом файле: 1-ый элемент-номер левого сына, 2-ой-номер правого и 3-ий-родителя. Это просто бинарное дерево, а...	Pascal Чётные столбцы матрицы А заменить на В Помогите решить пожалуйста эти задачи на Паскале № 1 Дана (построчно) вещественная матрица А размером 10х10 и массив В(10) Чётные столбцы матрицы А заменить на В № 2 Задан массив, содержащий...
Pascal Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы https://www.cyberforum.ru/ pascal/ thread117717.html Распишите пожалуйста подробнее!!!	Pascal Алгоритм с массивами... Помогите решить задачки, срочно, пожалуйста... 1) Дан массив действительных чисел x1;x2;...;xn. Выяснить, какое число в массиве встречается раньше - положительное или отрицательное. Если все члены... https://www.cyberforum.ru/ pascal/ thread117714.html
[Файлы] Составьте программу, которая создает файл RANDOM2.dat... Pascal Помогите с решением задачи :-Составьте программу, которая создает файл RANDOM2.dat, состоящий из 50 случайных цифр типа integer в диапазоне 0..200. После создания выведите элементы файла на экран	Pascal Цикл for https://www.cyberforum.ru/ pascal/ thread117705.html Сейчас ознакомился с циклом for и не оч разобрался.Как решить задачу такого плана:дано натуральное целое число n и числа a1,a2...an.вычислить abs(a1)abs(a2)...abs(an).поможете?
Pascal самое короткое и самое длинное слово. https://www.cyberforum.ru/ pascal/ thread117699.html пожалуйста помогите решать эту программу мне надо блок схема и программа. Дана строка, содержащая текст. найти самого короткого слова и самого длинного слова.	Pascal Делители натурального числа Здравствуйте, прошу вас помоч решить мне задачу, иначе завтра я получу пару. Прошу отнестись к моей проблеме с пониманием. Для программиста эта задача плевое дело, уделите мне пару минут пожалйста....
Pascal Определить и вывести на экран монитора количество столбцов массива, в котором нижний и минимальных элементов меньше, чем его соседи по строке Дан числовой массив: a(n*n)(6<n<20). Определить и вывести на экран монитора количество столбцов массива, в котором нижний и минимальных элементов меньше, чем его соседи по строке. Первый и последний... https://www.cyberforum.ru/ pascal/ thread117688.html	Pascal Вычислить сумму ряда с заданной точностью https://www.cyberforum.ru/ pascal/ thread117683.html Требуется помощь, заранее спасибо. Даны действительные числа x и ε (x≠0, ε>0). Вычислить с точностью ε и указать количество учтённых слагаемых: ...
Pascal Табл. умножения и сложение Ув. пользователи! Помогите пожалуйста с решением задачки на Паскале) Задача: Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счистления. ...	Pascal Сколько цифр в числе https://www.cyberforum.ru/ pascal/ thread117679.html Вобщем вот. Дано натуральное число n. Запись числа в десятичной системе есть Ak Ak-1 Ak-2 ... A1 A2. Сколько цифр в числе n? решаться должно через repeat. Заранее благодарю! П.С. Запись...

Puporev

Почетный модератор

64276 / 47575 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

16.04.2010, 21:53

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

16.04.2010, 21:53. Показов 5092. Ответов 5

Метки (Все метки)

Ответ

Pascal

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.

Вернуться к обсуждению:
Определить, содержит ли последовательность хотя бы 2 равных соседних числа Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.04.2010, 21:53

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.04.2010, 21:53

Помогаю со студенческими работами здесь

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

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

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

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

Наверх