Вопрос от посетителя:
Дана символьная строка. Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без измениния, второе заменить цифрой “2”, третье-“3” и т.д.
Илюха отвечает:
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
Либо я не знаю либо нужно подумать. Но символу нельзя присвоить число ему можно присвоить только символ.