Цитата:
Сообщение от efe
Дана строка символов. определить число вхождений в строку группы букв: а) abc; б) aba.
|
Код:
VAR
S,S1:String;
Nabc,Naba,p:BYTE;
f:Text;
BEGIN
WriteLn('Enter the string');
ReadLn(S);
Nabc:=0;
Naba:=0;
S1:=S;
Repeat
p:=Pos('abc',S1);
If p>0 then
begin
Delete(S1,p,3);
Inc(Nabc);
end;
Until p=0;
S1:=S;
Repeat
p:=Pos('aba',S1);
If p>0 then
begin
Delete(S1,p,3);
Inc(Naba);
end;
Until p=0;
Writeln('"abc" occurs ',Nabc,' times; "aba" occurs ',Naba,' times');
ReadLn;
END.