Question

Определить сколько слов в заданной строке начинаются на букву "а". Pascal

Answer 1

program Project1;  uses crt; const   //Разделители слов.   D =['.',',',':',';','!','?','-',' ', #9, #10, #13]; var   S :String;   i, Cnt, Len :Integer; begin   repeat     Writeln('Задайте строку:');     Readln(S);       Len := Length(S);     Cnt :=0;     for i :=1to Len dobegin       //Пропускаем разделители.       if S[i]in D then Continue;       //Отслеживаем начало слова.       if(i =1)or(S[i -1]in D)thenbegin         if S[i]in['a','A']then Cnt := Cnt +1;       end;     end;     Writeln('В заданной строке найдено ', Cnt,' слов,');     Readln(S);   until S <> ''; end.

Answer 2

В заданной строке "Pascal" только одно слово начинается на букву "а", это слово "Pascal" само по себе. Таким образом, в данной строке только одно слово начинается на букву "а".