// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var a:=ReadArrString('Введите слова построчно',20); a.OrderBy(x->x.Length).Println end.
Тестовое решение: Введите слова построчно Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье ЭтоВсе! Май Март Июнь Июль Среда Январь Апрель Август Ноябрь Февраль Октябрь Декабрь Вторник Четверг Пятница Суббота ЭтоВсе! Сентябрь Понедельник Воскресенье
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var a:=ReadArrString('Введите слова построчно',20); a.OrderBy(x->x.Length).Println end.
Тестовое решение: Введите слова построчно Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье ЭтоВсе! Май Март Июнь Июль Среда Январь Апрель Август Ноябрь Февраль Октябрь Декабрь Вторник Четверг Пятница Суббота
begin
var a:=ReadArrString('Введите слова построчно',20);
a.OrderBy(x->x.Length).Println
end.
Тестовое решение:
Введите слова построчно Январь
Февраль
Март
Апрель
Май
Июнь
Июль
Август
Сентябрь
Октябрь
Ноябрь
Декабрь
Понедельник
Вторник
Среда
Четверг
Пятница
Суббота
Воскресенье
ЭтоВсе!
Май Март Июнь Июль Среда Январь Апрель Август Ноябрь Февраль Октябрь Декабрь Вторник Четверг Пятница Суббота ЭтоВсе! Сентябрь Понедельник Воскресенье
begin
var a:=ReadArrString('Введите слова построчно',20);
a.OrderBy(x->x.Length).Println
end.
Тестовое решение:
Введите слова построчно Январь
Февраль
Март
Апрель
Май
Июнь
Июль
Август
Сентябрь
Октябрь
Ноябрь
Декабрь
Понедельник
Вторник
Среда
Четверг
Пятница
Суббота
Воскресенье
ЭтоВсе!
Май Март Июнь Июль Среда Январь Апрель Август Ноябрь Февраль Октябрь Декабрь Вторник Четверг Пятница Суббота