Распечатать эту же последовательность слов, удалив из нее повторные вхождения слов

@effefe · Регистрация: 17.09.2019

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

Проверка кода.
Распечатать эту же последовательность слов, но удалив из нее повторные вхождения слов;

Pascal

program fefefgdg;
var s,sl,s1,st:string;
    i:byte;
begin
    write('ведіть тект: ');
    readln(s);
    s:=s+' ';
    sl:=copy(s,1,Pos(' ',s)-1);
    delete(s,1,Pos(' ',s));
    s1:=sl[Length(sl)];
    st:=sl;s:=s+' ';
    while Pos(' ',s)>0 do
    begin
      sl:=copy(s,1,Pos(' ',s)-1);
      delete(s,1,Pos(' ',s));
      if sl<>'' then
      begin 
        s1:=s1+sl[Length(sl)];
        for i:=1 to Length(s1)-1 do
         while Pos(s1[i],sl)>0 do
          delete(sl,Pos(s1[i],sl),1); 
      end;
      if sl<>'' then st:=st+' '+sl;
    end;
    writeln('результат: ',st);
    readln;
end.

@ValentinNemo · 18.12.2019, 19:32

Напечатать предложение, удалив из него повторное вхождение слова

@ValentinNemo 2373 / 775 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	18.12.2019, 19:32	2
	Сообщение было отмечено effefe как решение Решение Напечатать предложение, удалив из него повторное вхождение слова 0

Опции темы

Распечатать эту же последовательность слов, удалив из нее повторные вхождения слов

Решение