Задача на строки Опции

[-Егор-]

вот задача

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 - 2.11.2006 2:13