Предмет: Информатика, автор: Rezida11

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

Ответы

Автор ответа: talesgrim
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.

Похожие вопросы
Предмет: Информатика, автор: wog18303
Помогите, пожалуйста, с программой, даже условие не могу понять, прошу хотя-бы натолкнуть на мысль

Условие
Напишите функцию, которая как результат будет возвращать подпоследовательность элементов массива, начиная с позиции X до позиции Y включительно в обратном порядке с шагом Z как новый массив. По умолчанию шаг должен быть равен 1.

Ваша задача для заданного массива вывести срез с шагом 1 и с шагом, заданным с клавиатуры.

Формат входных данных
В первой строке задается натурально число N, (N ≤ 10000)- размер массива.

В следующей строке вводятся N целых чисел, по модулю не превосходящих 109 - элементы массива.

В последней строке вводятся три целых числа X, Y и Z (0 ≤ X ≤ Y < N, 0 < Z < N)- границы и шаг среза соответственно.

Формат выходных данных
В первой строке выведите перевернутый фрагмент массива с шагом 1.

Во второй строке выведите перевернутый фрагмент массива с шагом Z.