Найти наименьший номер года, который строго больше заданного и в котором все цифры различны

@Wawa666 · Регистрация: 08.07.2017

Author24 — интернет-сервис помощи студентам

Красивый год.

Кажется, еще совсем недавно наступил новый 2013 год. А знали ли Вы забавный факт о том, что 2013 год является первым годом после далекого 1987 года, в котором все цифры различны?

Теперь же Вам предлагается решить следующую задачу: задан номер года, найдите наименьший номер года, который строго больше заданного и в котором все цифры различны.
Входные данные
В единственной строке задано целое число y (1000 ≤ y ≤ 9000) — номер года.
Выходные данные
Выведите единственное целое число — минимальный номер года, который строго больше y, в котором все цифры различны. Гарантируется, что ответ существует.

Помогите пожалуйста решить задачу!

@Zwelenewskiy · 08.07.2017, 19:03

Pascal

function Year(x: word): boolean;
var
  a: set of byte;
  k: boolean;
begin
  k:= true;
  while x > 0 do
   begin
    if not (x mod 10 in a)
     then a:= a + [x mod 10]
      else k:= false;
    x:= x div 10;
   end;
 if k
 then Year:= true
 else Year:= false;
end;
 
var 
  a, i: word;  
begin
repeat
write('Введите год: ');
readln(a);
until (a > 1000) and (a < 9000);
 
for i:= a + 1 to 9000 do
begin
if Year(i)
then begin
writeln('Искомый год: ',i);
break;
end; 
end;
 
end.

@Wawa666 · 08.07.2017, 19:25 **[ТС]**

Zwelenewskiy, Вы проверяли работает ли программа?.. Просто я ее набрал и она не выводит искомый год :с

@Zwelenewskiy · 08.07.2017, 19:30

Wawa666, какой год Вы ввели?

@Puporev · 08.07.2017, 19:30

Pascal

function Year(x:word): boolean;
var a: set of byte;
begin
a:=[];
while(x>0) and(not (x mod 10 in a)) do
 begin
  a:=a+[x mod 10];
  x:=x div 10;
 end;
Year:=x=0
end;
var a,i:word;
begin
repeat
write('Введите год от 1000 до 9000 a=');
readln(a);
until (a>=1000) and (a <=9000);
i:=a+1;
while not Year(i) do inc(i);
writeln('Искомый год: ',i);
end.

@Wawa666 · 08.07.2017, 19:32 **[ТС]**

Zwelenewskiy, 1987..

@Zwelenewskiy · 08.07.2017, 19:39

Wawa666, ответ: 2013. Что не так?

@Wawa666 · 08.07.2017, 19:44 **[ТС]**

Zwelenewskiy, программа вообще не выводит никакого ответа.. Но спасибо ^^

@Puporev · 08.07.2017, 19:46

Напиши в конце

Pascal

1 2	readln{нажать Enter} end.

@Zwelenewskiy · 08.07.2017, 19:52

Puporev, так это режим консоли был. Ахах
Wawa666, вот так работает

Кликните здесь для просмотра всего текста

Pascal

uses ctr;
function Year(x: word): boolean;
var
  a: set of byte;
  k: boolean;
begin
  k:= true;
  while x > 0 do
   begin
    if not (x mod 10 in a)
     then a:= a + [x mod 10]
      else k:= false;
    x:= x div 10;
   end;
 if k
 then Year:= true
 else Year:= false;
end;
 
var 
  a, i: word;  
begin
repeat
write('Введите год: ');
readln(a);
until (a > 1000) and (a < 9000);
 
for i:= a + 1 to 9000 do
begin
if Year(i)
then begin
writeln('Искомый год: ',i);
break;
end; 
end;
 
readln
 
end.

@Puporev · 08.07.2017, 19:54

Это раздел Турбо Паскаль, а не ваш долбаный net.

@Zwelenewskiy · 08.07.2017, 20:06

Ну,почему же Наш,а не общий)) Но,действительно, забываю о консоли...

@JuriiMW · 10.07.2017, 09:13

Сообщение от Puporev

Турбо Паскаль, а не ваш долбаный net.

Во-первых, не наш, а MS.
Во-вторых, не „net.“, а „.net“.
Ну и в третьих, я никогда на ТР не писал в конце „readln“! Ибо если программа готова, то её запускают не из под IDE, а если запускают из под IDE, то чтобы нажать Alt+F5 — не перетрудиться!
Zwelenewskiy, а зачем в вашей программе модуль CRT?

@Zwelenewskiy · 10.07.2017, 09:28

JuriiMW, а разве не надо его подключать(для консоли)?..

@Constantin Cat · 10.07.2017, 09:37

Сообщение от Zwelenewskiy

а разве не надо его подключать(для консоли)?

его нужно подключать, когда используете что либо из этого модуля, а так он только место в памяти занимает.

@Puporev · 10.07.2017, 09:55

Сообщение от JuriiMW

чтобы нажать Alt+F5 — не перетрудиться!

А вот ТС еще не знает этого и ждет чуда ничего не нажав.

@JuriiMW · 10.07.2017, 10:00

Сообщение от Puporev

и ждет чуда ничего не нажав

Потому, что с этими „форточками“ вырастили поколение „мышкоблудов“…
Им легче 20 действий с помощью мыши выполнить, чем нажать 5-6 клавиш!

Добавлено через 1 минуту
Я встречал преподавателей (до сих пор работающих с ТР), которые сами не знали про волшебные Alt+F5 !!!

@Cyborg Drone · 11.07.2017, 00:29

Сообщение от JuriiMW

я никогда на ТР не писал в конце „readln“! Ибо если программа готова, то её запускают не из под IDE

JuriiMW, без readln? Зачем проявлять столь изощрённый садизм к пользователям? Насколько мне известно, даже настоящие джедаи во времена MS-DOS использовали файловый менеджер, чаще всего - Norton Commander. И вот Вам ситуация: запустили Вашу программу, она выдала на дисплей результат и тут же благополучно завершилась, после чего NC, естественно, занял своё законное место, то есть, весь экран за исключением нижней строчки (в которой написан только текущий каталог). И несчастный пользователь либо решает, что программа Ваша не работает, либо начинает лихорадочно вспоминать, как погасить панели в Norton Commander.

Сообщение от Zwelenewskiy

забываю о консоли...

Консолью называют клавиатуру и текстовый дисплей, подключенные к компьютеру. Естественно, с консолью удобнее работать, чем с перфокартами... Не забывайте об этом.

Парни, Вы уже не застали тех времён, когда TP запускали в той операционке, для которой он был написан, ведь так?

Добавлено через 11 минут

Не по теме:

Puporev, к Вам это всё не относится...

@JuriiMW · 11.07.2017, 05:56

Сообщение от Cyborg Drone

Вы уже не застали тех времён, когда TP запускали в той операционке, для которой он был написан

Я ещё TP 3 на Robotron 1715 запускал, если что…

@D1973 · 12.07.2017, 16:49

Господа, а почему ReadLn, а не ReadKey из того же crt? Всегда им пользовался в Паскале...

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	10.07.2017, 09:28	14
	JuriiMW, а разве не надо его подключать(для консоли)?.. 0

@Cyborg Drone Модератор 10078 / 5419 / 3356 Регистрация: 17.08.2012 Сообщений: 16,587
	11.07.2017, 00:29	18
	Сообщение от JuriiMW я никогда на ТР не писал в конце „readln“! Ибо если программа готова, то её запускают не из под IDE JuriiMW, без readln? Зачем проявлять столь изощрённый садизм к пользователям? Насколько мне известно, даже настоящие джедаи во времена MS-DOS использовали файловый менеджер, чаще всего - Norton Commander. И вот Вам ситуация: запустили Вашу программу, она выдала на дисплей результат и тут же благополучно завершилась, после чего NC, естественно, занял своё законное место, то есть, весь экран за исключением нижней строчки (в которой написан только текущий каталог). И несчастный пользователь либо решает, что программа Ваша не работает, либо начинает лихорадочно вспоминать, как погасить панели в Norton Commander. Сообщение от Zwelenewskiy забываю о консоли... Консолью называют клавиатуру и текстовый дисплей, подключенные к компьютеру. Естественно, с консолью удобнее работать, чем с перфокартами... Не забывайте об этом. Парни, Вы уже не застали тех времён, когда TP запускали в той операционке, для которой он был написан, ведь так? Добавлено через 11 минут Не по теме: Puporev, к Вам это всё не относится... 0

Новые блоги и статьи
Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .	Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .
Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .	Как обойтись без проверки на null, чтобы избежать NullPointerException в Java bytestream 24.01.2025 NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .	Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:void(0)" bytestream 24.01.2025 При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .	Как узнать индекс элемента списка по его значению в Python hw_wired 24.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только манипулировать элементами списка, но и определять их точное местоположение. Индекс элемента представляет собой. . .

@Wawa666 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 5
		1
	Найти наименьший номер года, который строго больше заданного и в котором все цифры различны 08.07.2017, 15:16. Показов 8002. Ответов 23 Метки нет (Все метки) Красивый год. Кажется, еще совсем недавно наступил новый 2013 год. А знали ли Вы забавный факт о том, что 2013 год является первым годом после далекого 1987 года, в котором все цифры различны? Теперь же Вам предлагается решить следующую задачу: задан номер года, найдите наименьший номер года, который строго больше заданного и в котором все цифры различны. Входные данные В единственной строке задано целое число y (1000 ≤ y ≤ 9000) — номер года. Выходные данные Выведите единственное целое число — минимальный номер года, который строго больше y, в котором все цифры различны. Гарантируется, что ответ существует. *Помогите пожалуйста решить задачу!* 0

@Wawa666 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 5
	08.07.2017, 19:25 [ТС]	3
	Zwelenewskiy, Вы проверяли работает ли программа?.. Просто я ее набрал и она не выводит искомый год :с 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	08.07.2017, 19:30	4
	Wawa666, какой год Вы ввели? 0

@Wawa666 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 5
	08.07.2017, 19:32 [ТС]	6
	Zwelenewskiy, 1987.. 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	08.07.2017, 19:39	7
	Wawa666, ответ: 2013. Что не так? 0

@Wawa666 0 / 0 / 0 Регистрация: 08.07.2017 Сообщений: 5
	08.07.2017, 19:44 [ТС]	8
	Zwelenewskiy, программа вообще не выводит никакого ответа.. Но спасибо ^^ 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,182
	08.07.2017, 19:54	11
	Это раздел Турбо Паскаль, а не ваш долбаный net. 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	08.07.2017, 20:06	12
	Ну,почему же Наш,а не общий)) Но,действительно, забываю о консоли... 0

@JuriiMW 5087 / 2658 / 2350 Регистрация: 10.12.2014 Сообщений: 10,054
	10.07.2017, 09:13	13
	Сообщение от Puporev Турбо Паскаль, а не ваш долбаный net. Во-первых, не наш, а MS. Во-вторых, не „net.“, а „.net“. Ну и в третьих, я никогда на ТР не писал в конце „readln“! Ибо если программа готова, то её запускают не из под IDE, а если запускают из под IDE, то чтобы нажать Alt+F5 — не перетрудиться! Zwelenewskiy, а зачем в вашей программе модуль CRT? 0

@Constantin Cat 3408 / 1827 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	10.07.2017, 09:37	15
	Сообщение от Zwelenewskiy а разве не надо его подключать(для консоли)? его нужно подключать, когда используете что либо из этого модуля, а так он только место в памяти занимает. 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,182
	10.07.2017, 09:55	16
	Сообщение от JuriiMW чтобы нажать Alt+F5 — не перетрудиться! А вот ТС еще не знает этого и ждет чуда ничего не нажав. 0

@JuriiMW 5087 / 2658 / 2350 Регистрация: 10.12.2014 Сообщений: 10,054
	10.07.2017, 10:00	17
	Сообщение от Puporev и ждет чуда ничего не нажав Потому, что с этими „форточками“ вырастили поколение „мышкоблудов“… Им легче 20 действий с помощью мыши выполнить, чем нажать 5-6 клавиш! Добавлено через 1 минуту Я встречал преподавателей (до сих пор работающих с ТР), которые сами не знали про волшебные Alt+F5 !!! 0

@JuriiMW 5087 / 2658 / 2350 Регистрация: 10.12.2014 Сообщений: 10,054
	11.07.2017, 05:56	19
	Сообщение от Cyborg Drone Вы уже не застали тех времён, когда TP запускали в той операционке, для которой он был написан Я ещё TP 3 на Robotron 1715 запускал, если что… 0

@D1973 Модератор 9655 / 6261 / 2429 Регистрация: 21.01.2014 Сообщений: 26,701 Записей в блоге: 3
	12.07.2017, 16:49	20
	Господа, а почему ReadLn, а не ReadKey из того же crt? Всегда им пользовался в Паскале... 0

Найти наименьший номер года, который строго больше заданного и в котором все цифры различны

Решение