Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дана строка символов.Найти количество слов,у которых первый последний символы совпадают между собой

Ответ оставил Гость

uses crt;
var s,sl: string;
i,k: integer;
begin
writeln(Введите строку);
readln(s);
s:=s+ ;
sl:=;
for i:=1 to length(s) do
if s[i]<> then sl:=sl+s[i]
else
begin
if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k);
sl:=;
end;
writeln(Количество слов, начинающихся и заканчивающихся одной буквой = ,k);
readkey
end.