Question

Помогите с решением, пожалуйста!! на завтра уже нужно((

Задание №3. Строковые переменные

 

Из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз. 

Answer 1

var i,j:integer; s:string;

begin

read(s);

writeln;

for i:=1 to length(s) do

begin

for j:=0 to i-1 do

if (s[i]<>s[j]) or (s[i]=' ') then for j:=i+1 to length(s) do if (s[i]<>s[j]) or (s[i]=' ') then write(s[i],' ');

end;

end.