Паскаль.Введите с клавиатуры символьную строку и выведите все символы,которые встречаются...

Question

Паскаль.Введите с клавиатуры символьную строку и выведите все символы,которые встречаются в ней один только раз.Заранее спасибо.

Comments

очень надо,помогите пожалуйста

---

людиии

Answer 1

Var s: string;
    ch: char;
begin
  write('строка:  ');  readln(s);
  foreach ch in s.Sorted.Distinct do  write(ch,' ');
end.

Comments

паскаль это не читает

---

У Вас не Паскаль АВС?

---

да

---

помогите пожалуйста,

---

очень надо

---

var s: string;
    ch: char;
    i,j,k: integer;
begin
  write('строка:  ');  readln(s);
  k:=1;  j:=2;
  i:=1;  ch:=s[i]; 
  repeat 
    while j<=length(s) do <br>    begin
      if ch=s[j] then
      begin
        k:=k+1;
        delete(s,j,1);
        j:=j-1;  
      end;  
      j:=j+1;
    end;
    if k=1 then write(ch,' ');
    i:=i+1; k:=1;  ch:=s[i];
    if i=length(s) then writeln(ch);
    j:=i+1;
  until j>length(s);  
end.