Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст...

Question

Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст из 100 литер.

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var c:char;
  var s:='';
  for var i:=1 to 100 do begin
    Read(c); s+=c;
    end;
  s.Distinct.Where(t->t<>' ').OrderBy(t->t).Println(',')
end.

Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э