Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Novichek
0 / 0 / 0
Регистрация: 19.05.2016
1

Найти ближайшее "геройское" (в записи не больше 2 различных цифр) число

12.05.2012, 11:51. Просмотров 837. Ответов 1
Метки нет (Все метки)

Известные любители математики братья Никитины постоянно придумывают какие-то головоломки, которые сами же с успехом и разрешают. В морозный весенний апрельский вечер у них не было возможности насладиться прогулкой по вечернему городу, поэтому братья решили придумать новый класс чисел, которые в будущем наверняка станут предметом исследования для ученых из всего мира.

Данный класс чисел Никитины назвали в честь своей любимой компьютерной игры «Heroes of might and magic III», а именно геройскими числами.

Итак, число называется геройским, если в его десятичной записи встречается не более двух различных цифр. Например, числа 4, 24, 44, 511, 35353 — геройские, а числа 345 и 6682 — нет.

Но братья Никитины не были бы братьями Никитиными, если бы не придумали для Вас очередную головоломку: найти ближайшее к заданному числу N геройское число. Если таких чисел несколько, то необходимо выбрать меньшее из них.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2012, 11:51
Ответы с готовыми решениями:

Сформировать вектор: если в строке матрицы букв больше цифр, то элемент вектора -"истина", иначе "ложь"
Случайным образом заполнить матрицу символов 6х6.сформировать вектор в строке...

Найти число элементов массива, которые больше своих "соседей", т.е. предшествующего и последующего.
11.64. Найти число элементов массива, которые боль*ше своих "соседей", т.е....

дано двухзначное число. Опредилить больше ли числа "n" сумма его цифр.
дано двухзначное число. Опредилить больше ли числа "n" сумма его цифр. ...

Нужно написать прогу которая б переводила любое число записаное так "1"...."14"..."147" в етоже число но записаное прописью......
помогите написать прогу которая б переводила любое число записаное так...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из...

1
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
12.05.2012, 14:51 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вроде как-то так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
function Geroj(n:integer):boolean;
var m:integer;
    s:set of byte;
    k:byte;
begin
m:=abs(n);
s:=[];
k:=0;
while m>0 do
 begin
  if not(m mod 10 in s) then
   begin
    s:=s+[m mod 10];
    k:=k+1;
   end;
  m:=m div 10;
 end;
Geroj:=(k<3)or(n=0);
end;
var n,n1,n2,mn:integer;
begin
writeln(Geroj(254));
write('Введите целое число n=');
read(n);
if Geroj(n-1) then write('Ближайшее геройское число=',n-1)
else if Geroj(n+1) then write('Ближайшее геройское число=',n+1)
else
 begin
  n1:=n+1;
  while not Geroj(n1) do n1:=n1+1;
  n2:=n-1;
  while not Geroj(n2) do n2:=n2-1;
  if n-n2<=n1-n then write('Ближайшее геройское число=',n2)
  else write('Ближайшее геройское число=',n1)
 end
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2012, 14:51

Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Здравствуйте. Дано натуральное число N&lt;101, определяющее возраст человека( в...

Вывести его строку-описание вида: "четное двузначное число", "нечетное трехзначное число"
Дано целое число , от 1 до 999. Вывести его строку-описание вида: &quot;четное...

Дано натуральное число. Определить сколько цифр "3" в нём
№2. Дано натуральное число. Определить сколько цифр &quot;3&quot; в нём. Эту задачу...


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

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

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