Даны две строки знаков, состоящих из цифр, букв и пробелов. Группу

Даны две строчки знаков, состоящих из цифр, букв и пробелов. Группу символов, не содержащих пробелов снутри себя, будем нарекать словами. Составить программку переформирования строк так, чтобы в первой строке располагались слова, начинающиеся с цифр, в порядке их возрастания, а во 2-ой слова, начинающиеся с букв, в алфавитном порядке.

Задать свой вопрос
1 ответ
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программка не работает, обновите версию!

begin
  var s1:=ReadlnString('Строчка 1:');
  var s2:=ReadlnString('Строчка 2:');
  var s:=(s1+' '+s2).ToWords;
  s1:=s.Where(t-gt;t[1] in ['0'..'9']).OrderBy(t-gt;t).JoinIntoString;
  s1.Println;
  s2:=s.Where(t-gt;not(t[1] in ['0'..'9'])).OrderBy(t-gt;t).JoinIntoString;
  s2.Println
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт