Че то подчеркнуть надо ???
Var
s,ss:string;
i,j,n,k:integer;
begin
Write('Введите текст: '); Readln(s);
s:=' '+s+' ';
Write('Введите искомое слово: '); Readln(ss);
ss:=' '+ss+' ';
n:=Length(ss);
i:=Pos(ss,s); k:=0;
if i>0 then
repeat
Inc(k);
Delete(s,i,n);
i:=Pos(ss,s);
until i=0;
Writeln('Слово встречается ',k,' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите текст: по дороге, по тропинке, по леску пойдем
Введите искомое слово: по
Слово встречается 3 раз(а)
A) Вкторная графика.
B) на распечатанном отсутствует треугольник.
Незачто :3
Минимальный обьект, с которым работает пользователь Эксель - ячейка
В 1 мб- 1024 кб
В 1 КБ- 8бит
В 1,5 мб = 12288 бит