Задана строка символов. группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. найти количество слов в строке, у которых первый и последний символ .
Var currentPos,wordsAmount:byte; groupWords:string; procedure isCorrect(startPos:byte); begin while currentPos+1<=length(groupWords) do if groupWords[currentPos+1]<>' ' then inc(currentPos) else break; if groupWords[startPos]=groupWords[currentPos] then inc(wordsAmount); end; begin readln(groupWords); wordsAmount:=0; currentPos:=1; while currentPos<=length(groupWords) do begin if (groupWords[currentPos]<>' ') then isCorrect(currentPos); inc(currentPos); end; writeln(wordsAmount); readln; end.
currentPos,wordsAmount:byte; groupWords:string;
procedure isCorrect(startPos:byte);
begin
while currentPos+1<=length(groupWords) do
if groupWords[currentPos+1]<>' ' then inc(currentPos) else break;
if groupWords[startPos]=groupWords[currentPos] then
inc(wordsAmount);
end;
begin
readln(groupWords); wordsAmount:=0; currentPos:=1;
while currentPos<=length(groupWords) do
begin
if (groupWords[currentPos]<>' ') then isCorrect(currentPos);
inc(currentPos);
end;
writeln(wordsAmount); readln;
end.