Дана символьная строка. Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без измениния, второе заменить цифрой "2", третье-"3" и т.д.

1

Ответы и объяснения

2011-06-21T19:52:39+04:00

Program p1;
var
a:string;
i:integer;
begin
readln(a);
for i:=length(a) downto 2 do
begin
if a[i]=a[i-1]then delete(a,i,1);
end;
writeln(a);
end.
...........................................................................

Ввел: asdfsss

Результат: asdfs

Либо я не знаю либо нужно подумать. Но символу нельзя присвоить число ему можно присвоить только символ.