Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Ainur
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 4
1

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

25.11.2014, 10:30. Просмотров 1078. Ответов 6
Метки нет (Все метки)

Вы любите головолимки? Вася Пупкин очень любит головиломки. Ему попалась головоломка с числами. Есть цифры, в написании которых есть круг - 0,8,6,9.
Назовем такие цифры кругляшами. Число, у которого все цифры кругляши, иазывается круглейшим. Требуется найти ближайшее натуральное круглейшее число к заданному N. Если на одинаковом расстоянии от N несколько
круглейших чисел, то ответом будет большее из них. Вася быстро решил головоломки с числами, но огорчился, узнав, что к этим головоломкам нет верных ответов. Помогите Васе проверить, насколько он xopoшо решает головоломки с числами. Напишите программу, правильно решающие такие
головоломки
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2014, 10:30
Ответы с готовыми решениями:

кругляши
Однажды в просторах рунета появился следующий ребус: 157892 = 3 203516 = 2 409578 = 4 236271...

Цифры кругляши
Есть цифры, в написании которых есть круг - 0, 8, 6 , 9 . Назовем такие цифры кругляшками. Число у...

Даны натуральные числа M, N. Поменять одну из цифр первого числа с цифрой второго числа, чтобы получившиеся числа были взаимно простыми
Даны натуральные числа M, N. Поменять одну из цифр первого числа с цифрой второго числа, чтобы...

Как написать программу-калькулятор чтобы было можно додавать 2 числа, 3 числа, 4 числа, n чисел?
Как написать программу-калькулятор чтобы было можно додавать 2 числа, 3 числа, 4 числа, n чисел?

За 1 просмотр файла вывести сначала числа меньше а, потом числа из промежутка а b, затем, числа больше b
Дан файл с числами типа float, пользователь вводит 2 числа а и b, за 1 просмотр файла нужно вывести...

6
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
25.11.2014, 12:01 2
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 рублей на киви!
И где мои кровно заработанные? =)


Не по теме:

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

1
Sergio Leone
2471 / 1116 / 580
Регистрация: 07.06.2014
Сообщений: 3,259
25.11.2014, 13:43 3
APALoff, решение супер!!

только по алгоритму есть пара вопросов.
а) почему для nn=1 или nn=2 ответа нет?
б) если nn изначально "круглейшее", то что должно быть ответом?
1
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
25.11.2014, 14:21 4
Да, сейчас подредактирую.

Добавлено через 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.
1
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,111
25.11.2014, 15:20 5

Не по теме:

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



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

Не по теме:

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

0
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
25.11.2014, 15:42 6
Цитата Сообщение от Puporev Посмотреть сообщение
Лучше бы этому написали, он 50 рублей не обещает
Так кинь туда ссылочку на эту тему.

Не по теме:


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

0
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,111
25.11.2014, 15:52 7
Цитата Сообщение от APALoff Посмотреть сообщение
А 50 руб. сыграли свою роль
Коронный прием мелких кидал. Просто я обычно удаляю такое, а здесь прозевал.

Добавлено через 1 минуту
А ссылку на твое решение кинул туда.
1
25.11.2014, 15:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2014, 15:52

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

В 2 поля ввести 2 числа и вывести все непарные числа больше первого числа и меньше второго
Нужно в 2 поля ввести 2 числа и вывести все непарные числа больше первого числа и меньше второго;

Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число.
Уславие Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru