Работа со строками

@bayker · Регистрация: 17.05.2010

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

помощи прошу)

Определить, сколько раз в строке встречается заданное слово.

@Demon-red · 19.05.2010, 22:40

Pascal

uses crt;
var s,sl:string;
    k,i:integer;
begin
clrscr;
write('Введите строку: ');
      readln(s);
      write('Введите слово: ');
      readln(sl);
      k:=0;
      while pos(sl,s)>0 do
        begin k:=k+1;
              delete(s,pos(sl,s),length(sl));
        end;
      writeln('K = ',k);
      readkey;
end.

@bayker 0 / 0 / 0 Регистрация: 17.05.2010 Сообщений: 41
		1
	Работа со строками 19.05.2010, 21:19. Показов 1089. Ответов 1 Метки нет (Все метки) помощи прошу) Определить, сколько раз в строке встречается заданное слово. 0

Опции темы

Работа со строками

Решение