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

Question

Информатика

Лизута

27 января, 10:46

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

+4

Ответы (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.