Определить, сколько слов в предложении начинается с той же буквы, которой закончилось предыдущее - Turbo Pascal
Формулировка задачи:
Составьте программу, которая определит, сколько слов во введенном предложении начинается с той же буквы, которой закончилось предыдущее слово.
Пример: МАМА МЫЛА АНТОНОВКУ.
Решение задачи: «Определить, сколько слов в предложении начинается с той же буквы, которой закончилось предыдущее»
textual
Листинг программы
Const m=[' ',',','!','?','.'];
Var s,sl:string;
i,k:byte;
ch:char;
Begin
write('Предложение: ');readln(s);
ch:=' ';sl:='';s:=s+' ';
For i:=1 to Length(s) do
if not(s[i] in m) then sl:=sl+s[i]
else
Begin
if (ch<>' ')and(sl<>'') then
if sl[1]=ch then inc(k);
if (sl<>'') then ch:=sl[Length(sl)];
sl:='';
End;
writeln(k);
readln;
End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д