Числа кругляши

@Ainur · Регистрация: 16.05.2014

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

Вы любите головолимки? Вася Пупкин очень любит головиломки. Ему попалась головоломка с числами. Есть цифры, в написании которых есть круг - 0,8,6,9.
Назовем такие цифры кругляшами. Число, у которого все цифры кругляши, иазывается круглейшим. Требуется найти ближайшее натуральное круглейшее число к заданному N. Если на одинаковом расстоянии от N несколько
круглейших чисел, то ответом будет большее из них. Вася быстро решил головоломки с числами, но огорчился, узнав, что к этим головоломкам нет верных ответов. Помогите Васе проверить, насколько он xopoшо решает головоломки с числами. Напишите программу, правильно решающие такие
головоломки

@APALoff · 25.11.2014, 12:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Check(N : Longint) : Boolean;
Begin
  If N>0 then Check:=((N mod 10) in [0,6,8,9]) and Check(N div 10) else Check:=True;
end;
 
Var k,nn : Longint;
 
Begin
  {Readln(nn);} nn:=679;
  k:=0;
  Repeat
    Inc(k);
  Until Check(nn+k) or Check(nn-k);
  If Check(nn+k)then Writeln(nn+k) else
     If (k<nn) and (Check(nn-k)) then Writeln(nn-k);
end.

Не по теме:

Важно! Кто составит программу дам 50 рублей на киви!

И где мои кровно заработанные? =)

Не по теме:

Хотя о чем это я? это же все "голые" слова...

@Sergio Leone · 25.11.2014, 13:43

APALoff, решение супер!!

только по алгоритму есть пара вопросов.
а) почему для nn=1 или nn=2 ответа нет?
б) если nn изначально "круглейшее", то что должно быть ответом?

@APALoff · 25.11.2014, 14:21

Да, сейчас подредактирую.

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Check(N : Integer) : Boolean;
Begin
  If N>0 then Check:=((N mod 10) in [0,6,8,9]) and Check(N div 10) else Check:=True;
end;
 
Var k,nn : Longint;
  flag : Boolean;
 
Begin
  {Readln(nn);} nn:=8;
  k:=0;
  Repeat
     Flag:=Check(nn+k);
     If (k<nn) then Flag:=Flag or Check(nn-k);
     Inc(k);
  Until Flag;
  
  If Check(nn+k-1)then Writeln(nn+k-1) else
     If (k<nn) and (Check(nn-k-1)) then Writeln(nn-k-1);
end.

@Puporev · 25.11.2014, 15:20

Не по теме:

И нафига вы решаете этому тупому приколисту Васе Пупкину?

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

Не по теме:

Лучше бы этому написали, он 50 рублей не обещает и в названии темы было что это олимпиадная задача
Цифры кругляши

@APALoff · 25.11.2014, 15:42

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

Лучше бы этому написали, он 50 рублей не обещает

Так кинь туда ссылочку на эту тему.

Не по теме:

А 50 руб. сыграли свою роль в виде прикола - мне было из принципа интересно, "зашевелиться" ли ТС после решения ))

@Puporev · 25.11.2014, 15:52

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

А 50 руб. сыграли свою роль

Коронный прием мелких кидал. Просто я обычно удаляю такое, а здесь прозевал.

Добавлено через 1 минуту
А ссылку на твое решение кинул туда.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

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

	Числа кругляши 25.11.2014, 10:30. Показов 3062. Ответов 6 Метки нет (Все метки) Вы любите головолимки? Вася Пупкин очень любит головиломки. Ему попалась головоломка с числами. Есть цифры, в написании которых есть круг - 0,8,6,9. Назовем такие цифры кругляшами. Число, у которого все цифры кругляши, иазывается круглейшим. Требуется найти ближайшее натуральное круглейшее число к заданному N. Если на одинаковом расстоянии от N несколько круглейших чисел, то ответом будет большее из них. Вася быстро решил головоломки с числами, но огорчился, узнав, что к этим головоломкам нет верных ответов. Помогите Васе проверить, насколько он xopoшо решает головоломки с числами. Напишите программу, правильно решающие такие головоломки 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	25.11.2014, 13:43
	APALoff, решение супер!! только по алгоритму есть пара вопросов. а) почему для nn=1 или nn=2 ответа нет? б) если nn изначально "круглейшее", то что должно быть ответом? 1

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	25.11.2014, 15:20
	Не по теме: И нафига вы решаете этому тупому приколисту Васе Пупкину? Добавлено через 4 минуты Не по теме: Лучше бы этому написали, он 50 рублей не обещает и в названии темы было что это олимпиадная задача Цифры кругляши 0