Удалить в строке слова, которые встречаются в ней указанное число раз

25.12.2009, 22:26. **Показов** 2331. **Ответов** 3

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

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

@кот Бегемот · 25.12.2009, 22:30

как разделяются слова?

25.12.2009, 22:42

Сообщение от alexevt

как разделяются слова?

пробелами

@кот Бегемот · 25.12.2009, 22:59

Сообщение от niviolet

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

Pascal

var
a:string;
b:array[1..100]of string;
i,k,n,t,m,j:integer;
begin
writeln('vvedite stroku');
readln(a);
writeln('vvedite chislo');
readln(n);
a:=' '+a+' ';
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
 begin
  m:=0;
   for j:=1 to k do
     if b[i]=b[j] then inc(m);
       if m=n then
          begin
            for t:=length(a)downto 1 do
             if copy(a,t,length(b[i])+2)=' '+b[i]+' ' then delete(a,t,length(b[i])+1);
           end;
     end;
writeln(a);
 readln;
end.

niviolet
		1
	Удалить в строке слова, которые встречаются в ней указанное число раз 25.12.2009, 22:26. Показов 2331. Ответов 3 Метки нет (Все метки) здравствуйте, необходимо срочно решить следующую задачу: удалить в строке слова, которые встречаются в ней указанное число раз. буду благодарна любой помощи

@кот Бегемот Платежеспособный зверь 8946 / 4373 / 1647 Регистрация: 28.10.2009 Сообщений: 11,603
	25.12.2009, 22:30	2
	как разделяются слова? 0

niviolet
	25.12.2009, 22:42	3
	Сообщение от alexevt как разделяются слова? пробелами

	25.12.2009, 22:59

Опции темы

Удалить в строке слова, которые встречаются в ней указанное число раз

Решение