Меню сайта

Задача №9

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


program string_9-

var s,sl:string-

k,i:integer-

begin write(‘введите строку:’)-

readln(s)-

write(‘введите слово: ‘)-

readln(sl)-

k:=0-

while pos(sl,s)&gt-0 do

begin k:=k+1-

delete(s,pos(sl,s),length(sl))-

end-

writeln(k)-

end.

Категория: Строки | Дата: 11.01.13

Меню раздела
Блок