Определить, сколько слов в предложении начинается с той же буквы, которой закончилось предыдущее - Turbo Pascal

Формулировка задачи:

Составьте программу, которая определит, сколько слов во введенном предложении начинается с той же буквы, которой закончилось предыдущее слово. Пример: МАМА МЫЛА АНТОНОВКУ.

Код к задаче: «Определить, сколько слов в предложении начинается с той же буквы, которой закончилось предыдущее - 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.

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы