Есть ответ 👍

Язык pascal abc больше всего на свете паша любит две вещи — музыку и порядок. каждый день, когда паша возвращается домой, он включает ноутбук, заходит на свою страничку в синей социальной сети и слушает добавленные к себе в аудиозаписи песни. самое сложное — выбрать, с какой песни сегодня начинать слушать музыку. конечно же, паша мог бы выбирать начальную песню как-нибудь наугад, руководствуясь сегодняшним настроением и текущими предпочтениями в музыке. но порядка в этом нет никакого. поэтому паша придумал для себя четкую схему выбора стартовой песни. еще давно, когда паша в очередной раз страдал от недостатка порядка в окружающем мире, он пообещал себе, что в его аудиозаписях всегда будет такое число песен n, что в числе n цифры не повторяются и среди них нет цифры 0. такое число казалось ему практически идеальным. вот из этого почти идеального числа паша и решил исходить при выборе начальной песни. схема выбора выглядит так: сначала паша смотрит на количество песен у себя в аудиозаписях n. в этом числе он меняет местами цифры, сортируя их по возрастанию. таким образом он получает идеальное число. затем он умножает это идеальное число на свое любимое число 9. здесь можно было бы и остановится, но иногда это произведение получается слишком большим, поэтому в качестве номера начальной песни паша берет сумму цифр произведения. по количеству песен у паши в аудиозаписях выведите номер начальной песни на сегодня. входные данные дано натуральное число n. гарантируется, что среди цифр числа n не встречается цифры 0. все цифры числа n различны. выходные данные выведите единственное число — искомый номер начальной песни. входные данные 321 выходные данные 9

137
241
Посмотреть ответы 2

Ответы на вопрос:


Var s: string; ch: char; n,i,j,err: integer; begin readln(n); str(n,s); for i : = 1 to length(s)-1 do   for j : = 1 to length(s)-i do   if s[j] > s[j+1] then begin     ch: =s[j];     s[j]: =s[j+1];     s[j+1]: =ch;   end; val(s,j,err); j*=9; str(j,s); n: =0; for i: =1 to length(s) do begin   val(s[i],j,err);           n+=j; end; writeln(n); end.
Igir37yx
4,4(76 оценок)

Правая рука лучше измеряет вес, а левая тимперату

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS