Предмет: Информатика,
автор: Rezida11
дана строка символов.Найти количество слов,у которых первый последний символы совпадают между собой
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Английский язык,
автор: alyna926
Предмет: Химия,
автор: mashakot69
Предмет: Информатика,
автор: wog18303
Предмет: Алгебра,
автор: Танечка25