1. С клавиатуры вводятся слова и помещаются в R-список (info:string). Написать проце-дуру, печатающую те слова из списка, которые встречаются ровно один раз
Так... НУ, и что именно не выходит? Я же тебе уже давал создание R-списка, ты что думаешь, тут ВСЁ за тебя будут решать? Ошибаешься. Сам думать начинай...
Код
procedure poisk(r:ptr);
var w,e:ptr;
begin
w^.info:=r^.info;
repeat
if w^.info<>r^.link^.info then r:=r^.link
else
begin
e:=r^.link;
r^.link:=e^.link;
dispose(e);
end;
until (r=top) or (r^.link=top);
while r=top do poisk(r^.link);
end;