6 lines
180 B
ObjectPascal
6 lines
180 B
ObjectPascal
// Âûâåñòè âñå ïàëèíäðîìû â ñòðîêå, óïîðÿäî÷åííûå ïî äëèíå
|
|
|
|
begin
|
|
var s := ' hello aha paap zz ';
|
|
s.ToWords.Where(w -> w.Inverse = w).OrderBy(s->s.Length).Println(',');
|
|
end. |