Составьте программу,вычеркивающую из слова Х буквы,встречающиеся при написании слова Х...

Question

Составьте программу,вычеркивающую из слова Х буквы,встречающиеся при написании слова Х ровно три раза.

Comments

Какие именно буквы вычеркнуть надо?

---

Все, понял

---

а вот такую?)

---

Составьте программу, позволяющую проверить, можно ли из букв слова Х составить слово У. Буквы можно переставлять, но каждую букву можно использовать только 1 раз.

---

Извини, но моих знаний недостаточно, чтобы решить такую задачу. Я сам еще только начинаю изучать паскаль. Помогаю, чем могу

---

допустим, молоко, он должен вычеркнуть 3 одинаковых буквы "о"

---

любые)

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 s,c:string;
 i,k,j,m:integer;
begin
 readln(s);
 k:=0;
 m:=length(s);
 i:=0;
 while i<>m do
  begin;
   inc(i);
   for j:=i to m do
    if s[i]=s[j] then inc(k);
    if k=3 then
     begin;
    c:=s[i];
     while pos(c,s)<>0 do
      delete(s,pos(c,s),1);
    end;
   k:=0;
   m:=length(s);
  end;
 writeln(s);
end.

Пример ввода:
Панамка
Пример вывода:
Пнмк

Comments

спасибо)

---

Не учёл, что их может быть больше, извиняюсь.

---

Var
 s,c:string;
 i,k,j,m:integer;
begin
 readln(s);
 k:=0;
 m:=length(s);
 i:=0;
 while i<>m do
  begin;
   inc(i);
   for j:=i to m do
    if s[i]=s[j] then inc(k);
    if k=3 then
     begin;
    c:=s[i];
    i:=0;
     for j:=1 to 3 do
     delete(s,pos(c,s),1);
    end;
   k:=0;
   m:=length(s);
  end;
 writeln(s);
end.

---

она должна только 3 qqq убрать, а убирает все

---

а если qqqqqw

---

В смысле все одинаковые? В примере qwqw она ничего не убирает, так и должно быть. Если ввести qqqw, то она оставляет только w.

---

Еще вопрос, программа должна три буквы только убирать, а если в слове 4 буквы, она все одинаковые убирает... а надо только 3

---

m - длина строки, она меняется в процессе выполнения цикла, чтобы не было выхода за границы. j- счётчик для цикла, в котором считается количество совпадений символов.

---

Прошу прощения, а что такое m и j?

---

Спасибо большое, я была близка к решению, но все безрезультатно... я б в жизни не додумалась бы так решить)