дана строка символов.Найти количество слов,у которых первый последний символы совпадают между собой
10-11 класс
|
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.
Другие вопросы из категории
Выполнить вычитание
a) 1101110010,01(2) - 111110110,01(2)
б) 1653,1(8) - 415,6(8)
в) 1В9,4(16) - 1В4,6(16)
Читайте также
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
( символы записываются в обратной последовательности.)
2.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя.составить программу, в которой выводились бы все слова, в которых есть заданный символ.
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.