Дана строка символов

@jonni · Регистрация: 03.03.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста...
Дана строка символов. Удалить из неё все повторно встречающиеся символы.

@*~<`PIK`>~* · 16.03.2010, 23:52

Pascal

  var i,j:integer;
      s,s1:string;
begin
   Write('BBeguTe TeKcT.');
   Writeln;
   Write('-->');
   Readln(s);
   Writeln;
 
   For i:=1 to Length(s) do
   If i<Length(s) then
   begin
   s1:=s[i];
   For j:=1 to Length(s) do
   Delete(s, Pos(s1, s), 1);
   Insert(s1, s, i);
   end;
 
   Writeln;
   Write('HoBbIu TeKcT:');
   Writeln;
   Write(s);
   Readln;
end.

@jonni 119 / 119 / 25 Регистрация: 03.03.2010 Сообщений: 436
		1
	Дана строка символов 16.03.2010, 22:08. Показов 982. Ответов 1 Метки нет (Все метки) Помогите пожалуйста... Дана строка символов. Удалить из неё все повторно встречающиеся символы. 0

	16.03.2010, 23:52

Дана строка символов

Решение