Напечатайте заданный текст из 15 литер, удалив из него повторные вхождения каждой литеры, т.е. (Привет,а как у тебя дела)->(Привет,а к у бя дл)
Как это реализовать ? Помогите пожалуйста.
Код:
Const n=15;
Var a:array['a'..'z'] of integer;
S:array[1..n] of char;
i,j:integer;
c:char;
begin
for i := 1 to n do
Read (S[i]);
for c:='a' to 'z' do
a[c]:=0;
for i:=1 to n do
a[s[i]]:=a[s[i]]+1;
for i := 1 to n do
if a[s[i]]=1 then write(s[i]);
read(i);
end.