Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вводится последовательность Вводится последовательность n целых чисел. гаити наибольшее из всех отрицательных. https://www.cyberforum.ru/ turbo-pascal/ thread781080.html	Вводится последовательность. Найти наибольшее из всех отрицательных Turbo Pascal Вводится последовательность n целых чисел. Найти наибольшее из всех отрицательных
Turbo Pascal Вводится последовательность чисел, найдите 2 меньших числа https://www.cyberforum.ru/ turbo-pascal/ thread781077.html Вводится последовательность чисел, 0 конец ввода, найдите 2 меньших числа	Turbo Pascal Строки. Слоги и слова. Составить программу, организующую работу с пользователем в диалоговом режиме: программа запрашивает слово, заканчивающиеся на определенный слог, проверяет правильность ввода такого слова и выводит... https://www.cyberforum.ru/ turbo-pascal/ thread780956.html
Turbo Pascal Определить лежат ли точки на одной прямой Здравствуйте помогите пожалуйста решить задачу по паскалю. 2. Даны три точки на плоскости, описать из как записи. Определить лежал ли эти точки на одной прямой.	Turbo Pascal Отсортировать положительные элементы по возрастанию методом пузырька https://www.cyberforum.ru/ turbo-pascal/ thread780887.html Дан массив А заполненный положительными и отрицательными целыми числами. Необходимо отсортировать положительные элементы по возрастанию(методом пузырька), отрицательные элементы оставить на своих...
Turbo Pascal Создать область, ограниченную рамкой цвета Light В нижней части экрана создайте область, ограниченную рамкой цвета Light( текстом в центре: "Для продолжения программы нажмите Enter". Выводимый текст, трижды изменить цвет с LightCyan на LightRed. https://www.cyberforum.ru/ turbo-pascal/ thread780878.html	Подсчитать общую сумму от продажи удочек Turbo Pascal Здравствуйте помогите пожалуйста решить задачи по паскалю. 1. В магазине продан товар разных наименований и разной стоимости см.таблицу. Тип товара \| Наименование \| Стоимость единицы \| ...
Turbo Pascal Вычислить значение выражения розписати формолу для паскаліОфициальный язык форума - русский. Переведите. https://www.cyberforum.ru/ turbo-pascal/ thread780848.html	Turbo Pascal Создать два файла с информацией о продовольственных и промышленных товарах со следующими реквизитами: наименование товара, тип товара, количество, цен https://www.cyberforum.ru/ turbo-pascal/ thread780831.html Создать два файла с информацией о продовольственных и промышленных товарах со следующими реквизитами: наименование товара, тип товара, количество, цена за единицу. Добавить в указанное место файла...
Сортировка строк матрицы по возрастанию первого элемента строки Turbo Pascal Друзья, приветствую. Стоит такая задача: дана матрица и нужно отсортировать её строки так, чтобы первые элементы этих строк были расположены по возрастанию. Задачу оформить в виде процедуры. Я...	Turbo Pascal Даны натуральное число N и последовательность A1, A2, …,A N. Определить наименьшее положительное среди A1, A2, …,A N.* https://www.cyberforum.ru/ turbo-pascal/ thread780811.html Даны натуральное число N и последовательность A1, A2, …,A N. Определить наименьшее положительное среди A1, A2, …,A N.*

Reveng

424 / 424 / 338

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

Сообщений: 668

07.02.2013, 21:47

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

07.02.2013, 21:47. Показов 4140. Ответов 1

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

Сообщение было отмечено lal как решение

Решение

Тестируй.

Pascal

uses crt;
 
var
  a1, a2 : integer;
  bool : boolean;
  
begin
  Repeat
    Writeln('Вводите последовательность чисел: ');
    Readln(a1);
  until a1 <> 0;
  a2 := a1;
  bool := false;
  Repeat
    Readln(a1);
    if (a1 = a2) and (bool = false) then bool := true;
    a2 := a1;
  until a1 = 0;
  Writeln(bool);
  Readln;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.02.2013, 21:47

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.02.2013, 21:47

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

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

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

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

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

Наверх