Подсчитать, сколько слов в тексте начинается на букву «а» (слова разделены пробелом). (программа Паскаль)
214
362
Ответы на вопрос:
USES Crt;
VAR
A: STRING [240]; KS, N, I: INTEGER;
BEGIN
ClrScr;
Write('Введите тест '); ReadLn(A);
N:=Length(A);
IF A[1]=’А’ THEN KS:=1 ELSE KS:=0;
FOR I:=2 THEN N
IF (COPY(A,I,2) =’ а’) OR (COPY(A,I,2)=’ А’ THEN KS:=KS+1;
WriteLn(‘Количество слов, начинающихся на букву «а» =’,KS);
END.
VAR
A: STRING [240]; KS, N, I: INTEGER;
BEGIN
ClrScr;
Write('Введите тест '); ReadLn(A);
N:=Length(A);
IF A[1]=’А’ THEN KS:=1 ELSE KS:=0;
FOR I:=2 THEN N
IF (COPY(A,I,2) =’ а’) OR (COPY(A,I,2)=’ А’ THEN KS:=KS+1;
WriteLn(‘Количество слов, начинающихся на букву «а» =’,KS);
END.
Моя младшая сестра ночью не могла заснуть, я предложила почитать её любимую книжку, она обрадовалась и пошла за книгой. Я зажгла свечку и сестра села рядом со мной. У этой книги был очень интересный сюжет. Сестра начала засыпать. Мне было интересно, что было дальше в этой книге. Я отнесла сестрёнку на руках в её кровать. Я села на уютное кресло и продолжила чтение. Страниц в книге было много. Мне так было интересно, что я решила прочитать до конца. Последняя страница. -И жили они счастливо. На эту строку закончилась последняя страница книги. Я встала, убрала книгу на место. Посмотрела в окно, было уже светло.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
varsockaya23.09.2022 13:59
-
aidaAim20.05.2022 05:52
-
lara237731.05.2020 23:54
-
milanavornik10.07.2020 05:07
-
dianapanova200431.01.2020 10:00
-
aselduishenova02.04.2023 23:08
-
mila52578418.05.2021 02:18
-
NIKCHplay28.01.2023 17:44
-
Kirito08101.03.2020 13:53
-
tcalala09.11.2020 04:38
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.