СТРОКОВЫЙ ТИП

[McJordan]

Используя процедуры и функции обработки строк, произвести необходимые операции над строками.
В строке S, удалить два подряд идущих одинаковых слова, слова разделяются пробелом.

ВЫ РЕШИТЕ МНЕ ЭТУ ЗАДАЧУ ИЛИ НЕТ? Я УЖЕ НЕ ПЕРВЫЙ ДЕНЬ ЖДУ ЕЁ

[ROMA2PVT]

ВЫ РЕШИТЕ МНЕ ЭТУ ЗАДАЧУ ИЛИ НЕТ? Я УЖЕ НЕ ПЕРВЫЙ ДЕНЬ ЖДУ ЕЁ

<<offtop>>
Вот эт да!!!
А вам кто то обязан её решить?

[NSvirus]

Модеры, можно я его на член пошлю?

[XeruH]

А сколько вы готовы за заплатить???

[McJordan]

НУ ВЫ И СУКИ КАНЕШНО

[ROMA2PVT]

НУ ВЫ И СУКИ КАНЕШНО

<<offtop>> Меньше хомил бы и было-бы тебе счастье.А так забанят щас думаю тебя

[artemavd]

Уже забанил его.

[Stilet]

McJordan

А вот теперь публично извинись!

 var s:string;i:integer;
begin
 s:='hello world';
 i:=1;while i<length(s) do begin
  if s[i]=s[i+1] then delete(s,i+1,1);
  inc(i);
 end;
 write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

P.S. Прошу прощения что влез в закрытую тему.