Question

PASCAL ABC СРОЧНО!!!!
Дана строка, содержащая слова, разделенные пробелами.Вывести слова ,которые не повторяются.​

Answer 1

Ответ:

Объяснение:

var

 s:string;

 s1:string;

 s2:string;

begin

writeln('Строка>');

readln(s);s:=s+' ';

s2:='';

repeat

  s1:=copy(s,1,pos(' ',s)-1);

  delete (s,1,pos(' ',s));

  if (pos(s1,s)>0) and (s1<>' ') and (pos(s1,s2)=0) then s2:=s2+s1+#32;

until length(s)=0;

if s2='' then writeln ('нет повторяющихся слов') else  

   writeln('Повторяющиеся слова:',s2);

end.