С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
1 / 1 / 0
Регистрация: 04.12.2017
Сообщений: 54

Множества. Встречалось число или нет?

19.03.2019, 19:05. Показов 1940. Ответов 3

Студворк — интернет-сервис помощи студентам
Во входной строке записана последовательность чисел через пробел. Для каждого числа выведите слово YES (в отдельной строке), если это число ранее встречалось в последовательности или NO, если не встречалось.

Входные данные
Вводится список чисел. Все числа списка находятся на одной строке.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
1 2 3 2 3 4
выходные данные
NO
NO
NO
YES
YES
NO
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.03.2019, 19:05
Ответы с готовыми решениями:

Встречалось ли число раньше
Помогите с кодом на Паскаль. Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Во...

Встречалось ли число раньше (использовать множества)
Решить с помощью множеств! Во входной строке записана последовательность чисел через пробел. Для каждого числа выведите слово YES (в...

Встречалось ли число в последовательности
Вам даны последовательность целых чисел и еще одно целое число m. Выведите все элементы последовательности, отсортированные по неубыванию....

3
 Аватар для Mikstereo
98 / 36 / 18
Регистрация: 05.11.2018
Сообщений: 231
19.03.2019, 21:01
Лучший ответ Сообщение было отмечено ТатьянаЮрьевна как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a:set of longint;
k:longint;
begin
  while not eoln do
    begin
      read(k);
      if k in a then
        writeln('YES')
        else writeln('NO');
      a:=a+[k];
    end;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
19.03.2019, 23:46
Цитата Сообщение от Mikstereo Посмотреть сообщение
Pascal
1
var a:set of longint;
Это сильно редкий зверь ;-)
0
 Аватар для Mikstereo
98 / 36 / 18
Регистрация: 05.11.2018
Сообщений: 231
19.03.2019, 23:59
Цитата Сообщение от bormant Посмотреть сообщение
Это сильно редкий зверь ;-)
Лично у меня работает) В условии про диалект паскаля ни слова
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.03.2019, 23:59
Помогаю со студенческими работами здесь

Определить встречалось ли число в последовательности ранее
Во входной строке записана последовательность чисел через пробел. Для каждого числа выведите слово YES (в отдельной строке), если это число...

В ответ на введенное число от 0 до 10 выдать сообщение четное это число или нет. То же число для любого целого числа ≤100
В ответ на введенное число от 0 до 10 выдать сообщение четное это число или нет. То же число для любого целого числа ≤100. ...

Определить, сколько раз встречалось каждое число из интервала
Здравствуйте! Дано задание: Массив B включает 40 целых чисел из интервала . Отсортировать полученный массив. Определить, сколько раз...

Дано число А. Проверить – это число Фибоначчи или нет
Ребята, помогите решить задачу по целочисленной арифметике, надо написать код на c++. Очень надо, помогите, пожалуйста. Собственно, задача:...

Ввести целое число и определить, является ли данное число простым или нет
Ввести целое число и определить является ли данное число простым или нет. (желательно простым кодом для начинающих). Заранее благодарю.


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru