Вопрос по информатике:
Дан массив строк. Упорядочить строки массива по возрастанию количества пробелов в строках. В Паскаль
Пожаловаться
- 22.01.2018 23:54
- Информатика
- remove_red_eye 3428
- thumb_up 12
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger('Количество строк: ');
var a:=new string[n];
for var i:=0 to n-1 do a[i]:=ReadlnString;
Writeln('*** РЕЗУЛЬТАТ ***');
a:=a.Select(s->(s,s.ToCharArray.Where(c->c=' ').Count))
.OrderBy(vk->vk[1]).Select(vk->vk[0]).ToArray;
a.Println(NewLine)
end.
Пример
Количество строк: 4
Это первая стро ка
А это вторая строка
Это- третья
Четвертая - последняя
*** РЕЗУЛЬТАТ ***
Это- третья
Четвертая - последняя
Это первая стро ка
А это вторая строка
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger('Количество строк: ');
var a:=new string[n];
for var i:=0 to n-1 do a[i]:=ReadlnString;
Writeln('*** РЕЗУЛЬТАТ ***');
a:=a.Select(s->(s,s.ToCharArray.Where(c->c=' ').Count))
.OrderBy(vk->vk[1]).Select(vk->vk[0]).ToArray;
a.Println(NewLine)
end.
Пример
Количество строк: 4
Это первая стро ка
А это вторая строка
Это- третья
Четвертая - последняя
*** РЕЗУЛЬТАТ ***
Это- третья
Четвертая - последняя
Это первая стро ка
А это вторая строка
Пожаловаться
- 23.01.2018 01:32
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы