Решаем задачи Абрамян на Паскале. String32

String32. Даны строки $$S$$ и $$S_0$$. Найти количество вхождений строки $$S_0$$ в строку $$S$$.

Решение:

program String32;
var
 S,S0:string;
 i,poz,Num:integer;

begin
 Write('S:');
 Readln(S);
 Write('S0:');
 Readln(S0);

 Num:=0;
 poz:=pos(S0,S);

 while (poz<>0) do
  begin
   inc(Num);
   delete(S,poz,length(S0));
   poz:=pos(S0,S);
  end;
 Writeln(Num);
end.

program String32;

var

S,S0:string;

i,poz,Num:integer;

begin

Write('S:');

Readln(S);

Write('S0:');

Readln(S0);

Num:=0;

poz:=pos(S0,S);

while (poz<>0) do

begin

inc(Num);

delete(S,poz,length(S0));

poz:=pos(S0,S);

end;

Writeln(Num);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String32

Комментарии:

Добавить комментарий Отменить ответ