Для первого слова строки указать, сколько раз оно встречается среди всех слов

@RomanzeAlone · Регистрация: 10.12.2015

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

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

@Jener · 16.12.2015, 11:38

Pascal

var
  j : integer;
  s, w, w_d : string;
begin
  write('S :'); readln(s);
  s := s + ' ';
  w_d := copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  j := 0;
  while (s<>'') do begin
    w := copy(s,1,pos(' ',s)-1);
    if w=w_d then inc(j);
    delete(s,1,pos(' ',s));
  end;
  writeln('Слово "',w_d,'" встречается ',j,' раз.'); //без учёта самого первого слова
  readln;
end.

@RomanzeAlone 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 7
		1
	Для первого слова строки указать, сколько раз оно встречается среди всех слов 16.12.2015, 01:15. Показов 1454. Ответов 1 Метки нет (Все метки) Дана строка. Для первого слова указать, сколько раз оно встречается среди всех слов, образованных символами данного текста. 0

	16.12.2015, 11:38

Для первого слова строки указать, сколько раз оно встречается среди всех слов

Решение