profile
Размещено 5 лет назад по предмету Информатика от Ромашка7777

Помогите, пожалуйста! Мне надо подробное решение.
На вход программе подается
последовательность символов, заканчивающаяся точкой. Требуется написать
программу, которая определяет, есть ли в этой последовательности десятичные
цифры, и выводит наибольшее число, которое можно составить из этих цифр.
Ведущих нулей в числе быть не должно (за исключением числа 0, запись которого
содержит ровно одну цифру). Если цифр нет, программа должна вывести на экран
слово «Нет», а если есть – слово «Да» и в следующей строчке искомое число.
Например, если исходная последовательность была такая:

Day 10, mice 8: "Year" 7 is a mistake 91.

то результат должен быть
следующий:

Да

987110

 

  1. Ответ на вопрос
    Ответ на вопрос дан HRAshton
    var
      str, num: string;

    begin
      readln(str); //str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';
      foreach c: char in str do
        if (Char.IsDigit(c)) then
          num += c;
      for j: byte := 1 to length(num) - 2 do
        for i: byte := 1 to length(num) - 1 do
          if (num[i] < num[i + 1]) then
          begin
            str[1] := num[i];
            num[i] := num[i + 1];
            num[i + 1] := str[1];
          end;
      if (Integer.Parse(num) > 0) then
      begin
        while (num[num.Length - 1] = '0') do
          num.Remove(num.Length - 1);
        writeln('Да' + #13 + num);
      end
      else
        writeln('Нет');
    end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.