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

[-Егор-]

вот задача

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

[volvo]

Ну, и зачем вложенные циклы делать?

var
  s: string;
  i: integer;
begin
  { s := '1298968223456'; }
  write('enter string: '); readln(s);
  for i := 1 to length(s) do
    if pos(s[i], copy(s, 1, i-1)) +
       pos(s[i], copy(s, i+1, 255)) = 0 then write(s[i]);

  end;
  writeln;
end.