Question

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

Answer 1

program m2;
uses Crt;
var s:String;
i,j,n,k:Integer;
f:Boolean;
begin
ClrScr;
Writeln('Введите строку:');
Readln(s);
n:=Length(s);
for i:=1 to n do
begin
f:=True;
for j:=1 to n do
if (i<>j) and (s[i]=s[j]) then f:=False;
if f and (k=0) then Writeln('Символы,которые встречаются в строке один раз:');
if f then
begin
Write(s[i],' ');
inc(k);
end;
end;
if k=0 then Writeln('В строке нет символов которые встречаются всего один раз.');
Readln;
end.