Задача № 21

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

Пример решения –

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s:string;

i:integer;

n:set of char;

c:char;

const m:set of char=['a'..'z'];

begin

s:=Edit1.Text;

Edit2.Text:='';

n:=[];

For i:=1 to Length(s) do

if (not(s[i] in n))and(s[i] in m) then n:=n+[s[i]];

for c:='a' to 'z' do

if c in n then Edit2.Text:=Edit2.Text+c;

end;

end.