Pascal Строки

[vampir3001]

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

[Mad_Cat]

s:=[];
n:=length(str);
while n>0 do
if not (str[n] in s) then begin s:=s+[str[n]];inc(n);end
else delete(str,n,1);

[vampir3001]

напишите плиз прог. полностью от нач до конца..

[whatever]

Может еще сдать за вас? Дан вполне приемлимый ответ, осталось поместить его между бегином и эндом. Ну и задать исходную строку str. Если для вас это проблема, то пора бы подумать о переводе.

[vampir3001]

Да пожалуйста

Uses Crt;

Var I,J : Integer;
Si,So : String;

Begin
TextColor(White);
WriteLn('‚¢¥¤¨â¥ áâபã ᨬ¢®«®¢ -');
TextColor(LightGray);
ReadLn(Si);
For I := Length(Si) DownTo 1 Do
For J := I-1 DownTo 1 Do Begin
If Si[I] = Si[J] Then Si[J] := CHR(27);
End;
So := '';
For I := 1 To Length(Si) Do
If Si[I] <> CHR(27) Then So := So + Si[I];
TextColor(White);
WriteLn('‡*¤****ï áâப*, ¯®á«¥ ®¡à*¡®âª¨:');
TextColor(LightGray);
WriteLn(Si);
TextColor(White);
WriteLn('®«ãç¥***ï áâப*, ᮤ¥à¦*é*ï ⮫쪮 ¯®á«¥¤*¨¥ ¢å®¦¤¥*¨ï ª*¦¤®£® ᨬ¢®«*:');
TextColor(LightGray);
WriteLn(So);
readln;
End.