Ответы
Ответ дал:
1
Ответ:
uses crt;
var st,buf:string;
k:integer;
begin
k:=0;
clrscr;
write('-> ');
readln(st);
repeat
if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
else
begin
while (st[1]<>' ') and (length(st)>0) do
begin
buf:=buf+st[1];
delete(st,1,1);
end;
if upcase(buf[1])='A' then inc(k);
buf:='';
end;
until (length(st)=0) and (length(buf)=0);
writeln(k);
readln;
end.
Объяснение:
Ответ дал:
2
Program bykvaa;
Uses crt;
Var
a:string;
b,i:integer;
begin
writeln('Введите текст:');
readln(a);
if a[1]='а' then b:=b+1;
for i:=2 to length(a) do
begin
if a[i]='а' then if a[i-1]=' ' then b:=b+1;
end;
writeln('Количество слов в тексте, начинающихся на букву "а": ',b);
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад