дана строка s

[solisoul]

дана строка s.Преобразовать её удалив повторные вхождения каждого символа

[ROMA2PVT]

Показывайте свои наработки и тогда вам кто нить и поможет.А для написания программ полностью за вас есть соответствующий раздел-Фриланс.

[Vikenty]

function Func(s: string): string;
var
i: integer;
s2: string;
b: boolean;
s3: string;
begin
s2:=s;
i:=0;
b:=false;
while b<>true do
begin
i:=i+1;
if s2[i]<>s2[i+1] then s3:=s3+s2[i];
if s2[i]='' then b:=true;
end;
Func:=s3;
end;

Работает, если встретится две од буквы подряд одна из них удаляется