Определить сколько слов в заданной строке начинаются на букву "а". Pascal
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 := 1 to Len do begin //Пропускаем разделители. if S[i] in D then Continue; //Отслеживаем начало слова. if (i = 1) or (S[i - 1] in D) then begin if S[i] in [a, A] then Cnt := Cnt + 1; end; end; Writeln(В заданной строке найдено , Cnt, слов,); Readln(S); until S <> ;end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
