Запишите без разделителей последовательность букв которыми обозначены информационные объемы файлов, чтобы информационные объемы файлов были выстроены в порядке убывания: 20Мбайт, 20Бит, 2Гбайт, 20Байт, 200Кбайт.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
гБайт мБайт кБайт Байт Бит
Объяснение:
1 гБ = 1024 мБ
1 мБ = 1000 кБ
1 кБ = 1000 Байт
1 Байт = 8 Бит