uses crt;
var
s:string;
i,j,m:integer;
begin
clrscr;
write('Stoka->');
read(s);
for i:=1 to length(s) do
begin
m:=0;
for j:=i+1 to length(s) do
begin
if s[i]=s[j] then inc(m);
end;
if m=0 then write(s[j]);
end;
readkey
end.
работает чето неправильно, надо чтобы выводились символы которые встречаются только один раз
Тегами пользуемся !
Сообщение отредактировано: volvo -