Сколько раз последняя буква очередного слова совпадает с первой буквой следующего слова
procedure TForm1.Button1Click(Sender: TObject);
const n=['!','?',',','.',':',' ',#13,#10,#9];
var i,q:integer; str,s,s2:string;
begin
q:=0;
s2:='';
str:=edit1.Text;
for i:=1 to length(str) do
if not (str[i]in n) then
s:=s+str[i] else begin
if (length(s)>0)and(length(s2)>0) then
if s2[length(s2)]=s[1] then
inc(q);
if (length(s)>0) then
s2:=s;
s:='';
end;
label1.Caption:= inttostr(q)+' совпадения'; end; |