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

@madma · Регистрация: 05.06.2011

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

Народ.помогите решить задачку
Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение

@Mr.Y · 05.06.2011, 15:05

Pascal

Uses
 crt;
Var
 a:string;
 i:integer;
Begin
 clrscr;
 readln(a);
 For i:=length(a) downto 1 do
  If pos(a[i],a) <> i then delete(a,i,1);
 writeln(a);
 readln;
End.

@Puporev · 05.06.2011, 15:08

Pascal

uses crt;
var s:string;
    i,j:byte;
begin
clrscr;
writeln('Введите строку с повторяющимися символами:');
readln(s);
if length(s)>1 then
 begin
  i:=1;
  while i<length(s) do
   begin
    for j:=length(s) downto i+1 do
    if s[j]=s[i] then delete(s,j,1);
    i:=i+1;
   end;
 end;
write(s);
readln
end.

@madma · 05.06.2011, 15:29 **[ТС]**

спасибо большое

@madma 1 / 1 / 0 Регистрация: 05.06.2011 Сообщений: 6
		1
	Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение 05.06.2011, 14:54. Показов 3991. Ответов 3 Метки нет (Все метки) Народ.помогите решить задачку Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение 0

@madma 1 / 1 / 0 Регистрация: 05.06.2011 Сообщений: 6
	05.06.2011, 15:29 [ТС]	4
	спасибо большое 1

Опции темы