Информатика: Створити проект у Thonny на любую тему с информатики.

Znanija111tHtn

05.10.2022 16:25

Есть ответ 👍

Створити проект у Thonny на любую тему с информатики.

146

306

Посмотреть ответы 1

temirlan2019p

Информатика

4,6(67 оценок)

ответ:

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 работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.