ПОМООООГИТТЕЕЕЕЕЕЕЕЕЕ ПООООООООООООООЖАААААААААААААААЛУУУУУУУУУУУУУУЙСТАААААААА паскаль.

Question

ПОМООООГИТТЕЕЕЕЕЕЕЕЕЕ
ПООООООООООООООЖАААААААААААААААЛУУУУУУУУУУУУУУЙСТАААААААА
паскаль.

---

Comments

например

---

мама купила раму

---

Если глючит - пишите, исправлю))

---

Вот прога. Ей важно только чтобы разделялись слова пробелами. Алфавит не важен - будет сравнивать и цифры. Количество пробелов между словами тоже не важно.

---

строчные

---

Из строчных и прописных или только из строчных, или только из прописных?))

---

да

---

Слова состоят только из русских букв?

---

должно вывести раму

---

мама-4 буквы

Answer 1

Var
S,C,C1,R:string;
i,j,m,n,k:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
i:=1;
LowerCase(S);
While S[i]<>' ' do
   Begin
   C:=C+S[i];
   i:=i+1
   End;
i:=i+1;
For i:= i to Length(S) do
    if (S[i]<>' ')and(i<>Length(S)) then C1:=C1+S[i]
    else
       Begin
       k:=1;
       j:=1;
       For j:= 1 to Length(C1) do
           Begin
           n:=0;
           For m:= 1 to Length(C) do
               if C1[j] = C[m] then n:=1;
           if n = 0 then k:=0
           End;
       if (k = 1)and(C1 <> '') then R:=R+C1+' ';
       C1:='';
       End;
if R = '' then WriteLn('Нет')
else WriteLn(R)
End.

Comments

например

---

я поняла

---

все

---

аааааааааааааааааааа

---

"Из того же множества букв", это не "из такого же количества букв"

---

следовательно вывести "в"

---

первое слово -1 буква

---

я иду один в кафе

---

надо

---

спасибо))))