Ответы на вопрос:
ответ:
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.
объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
yardeebro04.01.2022 20:27
-
stas745404.04.2020 13:25
-
anel310325.12.2022 10:58
-
kirillmajer200707.11.2022 17:27
-
DaianaKey19.03.2020 17:01
-
zhirovr12.02.2022 06:31
-
russilian02.07.2022 15:36
-
dianos200209.08.2021 14:12
-
Aidana162004.11.2021 06:38
-
avdzhrr07.04.2020 19:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.