Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Вводите слова через пробел:').ToWords;
foreach var w in a do
if w=w.Sorted.JoinIntoString('') then Print(w)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Вводите слова через пробел:').ToWords;
foreach var w in a do
if w=w.Sorted.JoinIntoString('') then Print(w)
end.
Ответ дал:
0
спасибо
Вас заинтересует
2 года назад
2 года назад
9 лет назад
10 лет назад