вообщем даны 2 предложения.Напечатать те слова,которые усть в первом но нет во втором....у меня уже мозги кипят от задачи.ничего не получается....пожалуйста помогите
примерный программный код 
Program Example;
Var
  l, p: String[33];
  w, s: String;
   i,j: Integer;
Begin
    p:='¬ ¬  ¬л«  а ¬г е®а®и®я';
    WriteLn('vvedite strocy');
    ReadLn(S);
    For i:=1  to  Length(p)  do
    Begin

              Repeat
          while ( p[i]<>' ') do
              Begin
                   i:=i+1;
                    end;
               w:=copy(p,l,i-1);
               t:=false;
               j:=1;
               repeat
               a:=j;
               while s[j] <>' ' do
               begin
               j:=j+1;
                end;
               k:=(s,a,j-1);
               if w=k then
               t:=trye;
               j:=j+1;
               untul j=lenght( s);
               write ('w'w);
               end;
               until i=Lenght (p);
               write ('w='w);
               end.



     End
End.



Это сообщение отредактировал(а) losoob - 27.1.2008, 14:07

Вот рабочая прога, только есть пару моментов которые сам можешь доработать


Это сообщение отредактировал(а) orthrus - 28.1.2008, 08:28

спасибо....буду смотреть.....