Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.01.2010
Сообщений: 5

Олимпиадная задача. Племя Тив

21.12.2020, 19:15. Показов 766. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Племя тив
Каждый год профессор Иванов ездит в Африку с целью изучить племена, которые там проживают. В этом году он ездил в гости к племени тив. Профессор довольно быстро научился понимать их язык, выучил многие их обряды, однако, он никак не мог понять записанные цифрами тив числа. Как и мы, члены племени используют позиционную систему счисления с основанием 10. Но цифры в племени тив обозначают символами, не похожими на обычные цифры от 0 до 9.

Профессор обозначил эти символы буквами от 'a' до 'j', но не может понять, какой цифре соответствует какой символ. Тогда вождь племени дал ему список из n неотрицательных чисел, записанных без ведущих нулей, и сказал, что числа в нем отсортированы строго по возрастанию. Помогите профессору восстановить по этому списку какое-нибудь соответствие символов цифрам.

Входные данные

В первой строке входного файла дано одно натуральное числа n (2 ≤ n ≤ 10) — количество слов в списке. Следующие n строк содержат выданные вождем числа племени тив, по одному числу в строке. Длина каждого числа не превышает 9.

Выходные данные

В первой строке файла выведите "Yes", если ответ существует, в этом случае в следующей строке выведите цифры, которые соответствуют символам, обозначенным 'a'..'j', в этом порядке. Если существует несколько ответов, то выведете любой из них.

Если профессор понял что-то неправильно, и ответа не существует, выведете "No".
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.12.2020, 19:15
Ответы с готовыми решениями:

Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами
Когда пользователь работает в операционной системе Winux, у него часто запущено несколько приложений. Каждое из приложений работает в...

Считалка. Олимпиадная задача по программированию
Ирочка попросила маму придумать новую считалочку. Мама тут же ей "выдала". Пусть в кругу N человек. Это число N будем изменять...

Олимпиадная задача №4
Захар любит игры со словами. Но играть одному не интересно, поэтому Захар подсадил на эти игры соседа по парте — Славу. Бывает так, что...

2
 Аватар для canadamoscow
1179 / 430 / 194
Регистрация: 23.03.2020
Сообщений: 1,021
Записей в блоге: 1
21.12.2020, 23:41
Примеры
входные данные
4
a
da
dd
cc
выходные данные
Yes
0 1 3 2 4 5 6 7 8 9

входные данные
4
a
j
jb
ac
выходные данные
No
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
##
var f := ReadLines('input.txt');
var a := f.Skip(1).GroupBy(t-> t.Count);
var Para := Lst(('0','0'));
ForEach var len in a do
 begin
  if len.Count < 2 then continue;
  var alen := len.ToArray;
  for var i := 0 to alen.Count-2 do
   for var j := 1 to alen[i].Count do
    if alen[i][j] <> alen[i+1][j] then 
      begin 
        Para.Add((alen[i][j], alen[i+1][j]));
        break;
      end;
 end;
Para.RemoveAt(0);
Print('Пары (меньшее, большее):'); para.Println
Код выводит пары букв (меньше, больше) для дальнейшей их обработки в графе.
0
 Аватар для canadamoscow
1179 / 430 / 194
Регистрация: 23.03.2020
Сообщений: 1,021
Записей в блоге: 1
22.12.2020, 12:53
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
##
var f := ReadAllLines('input.txt');
var a := f.Skip(1).GroupBy(t-> t.Count);
var Para := new List<(char,char)>;
ForEach var len in a do
 begin
  if len.Count < 2 then continue;
  var alen := len.ToArray;
  for var i := 0 to alen.Count-2 do
   for var j := 1 to alen[i].Count do
    if alen[i][j] <> alen[i+1][j] then 
      begin 
        Para.Add((alen[i][j], alen[i+1][j]));
        break;
      end;
 end;
var (s, peremena) := ('abcdefghij', true);
if Para.Any then 
begin
  loop 6 do begin peremena := false;
   ForEach var p in para do
    if s.IndexOf(p.Item1)>s.IndexOf(p.Item2) then       
    begin
      peremena := true;
      var i := s.IndexOf(p.Item1);
      s := s.Remove(p.Item2).Insert(i,p.Item2) ;
    end;
 end;
end;
// s.Println; s.Select(t-> ord(t) - ord('a')).Println;
WriteAllText('output.txt', 
 (peremena ? 'NO' : 'YES' + NewLine + s.Select(t-> ord(t)-ord('a')).JoinToString(' ')));
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.12.2020, 12:53
Помогаю со студенческими работами здесь

Олимпиадная задача
1. Фильм Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или...

Олимпиадная задача
Ребят мне её нужно срочно решить её, прошу вашей помощи. var x,i,j,s,y:integer; n:array of integer; m:array of integer; label...

Олимпиадная задача
Дан неориентированный граф G, состоящий из n вершин и m рёбер. Известно, что каждое ребро в графе G соединяет различные вершины, а любую...

Олимпиадная задача №2
Фёдор решил написать игрушку для двух игроков на клетчатом поле w × h (ширина и высота соответственно). На поле находятся два игрока,...

Олимпиадная задача
(см на картинке)


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru