С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

Question

Информатика

Веня

1 октября, 20:41

С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

+1

Ответы (1)

Знаете ответ на вопрос?

Елюша · Answer 1

Var

n, k, i: integer;

s:string;

begin

write ('Введите фразу: ') ;

readln (s) ;

k:=length (s) - 1;

if s[1]='а' then n:=1;

for i : = 1 to k do

if (s[i]=' ') and (s[i+1]='а') then n:=n+1;

writeln ('Число слов на а (рус.) : ', n)

end.