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

Ответы 6

  • а если qqqqqw
    • Автор:

      greene
    • 6 лет назад
    • 0
  • она должна только 3 qqq убрать, а убирает все
    • Автор:

      graham
    • 6 лет назад
    • 0
  • 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.
  • Не учёл, что их может быть больше, извиняюсь.
  • Спасибо большое, я была близка к решению, но все безрезультатно... я б в жизни не додумалась бы так решить)
    • Автор:

      kaden694
    • 6 лет назад
    • 0
  • //Pascal ABC.NET v3.1 сборка 1172Var 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.Пример ввода:ПанамкаПример вывода:Пнмк
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years