Ответ:

Объяснение:

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.

Ответ:

stroka=input()

spisok=[]

a=stroka.split(' ')

for i in a:

     if i[len(i)-1]='а':

               spisok.append(i)

print(len(spisok))

Объяснение: