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

[Andrey770]

В строке символов определить символы, которые встречаются по одному разу и вывести на экран их номера их позиции.
Вот набросал до первого условия и облом
Незнаю что дальше..

uses crt;
var
    txt:string;
    l,i:integer;
begin
clrscr;
writeln('Введите текст:');
readln(txt);
l:=length(txt);
for i:=1 to l do begin

end.

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

[Astorius]

можно конечно так

count:=0;
    position:=0;
    for i:= 1 to length(s) do begin
        for j:=1 to length(s) do begin
            if (s[i] = s[j]) then inc(count);
            if (count = 1) and (j = length(s)) then begin
               inc(position);
               write(position, '. ');
               write(s[i],' ');
               write(i,';   ');
               writeln;
            end;
        end;
        count:=0;
    end;

хотя и не красиво

[OCTAGRAM]

Первого условия здесь тоже нет.

Алгоритм:
Заводим две штуки array[Char] of Integer, заполняем оба массива нулями. Первый массив хранит количество символов, второй — последнюю позицию такого встреченного символа.

Пробегаемся for'ом по всем символам в строке. Для каждого символа увеличиваем число в счётчике, а также обновляем последнюю позицию во втором массиве.

Когда всё закончено, перебираем коды символов от #0 до #255. Если в первом массиве единичка, выводим число из второго массива. Последняя позиция — она же и единственная для таких символов.

[Astorius]

По моему, это слишком сложно.

[Andrey770]

всем спасибо конечно, но можна как-нибудь по проще записать, а то все таки только первый год Паскаль учим))

[Акоб]

inc(count) и inc(position) что это такое?

[Astorius]

count это количество букв одинаковых, а позишн это просто порядковый номер
на красивый тру код я не претендую

[Акоб]

Что такое inc?

[Astorius]

мэд кэт, спасибо за код, разобрался.
красиво.

[Astorius]

увжаемые модераторы, удалите пожалуйста это сообщение