Ответы на вопрос:
Const n=20; var i,f,k,j: integer; s: string; a: array[1..n] of string; begin k: =0; j: =0; writeln('введите количество строк в массиве'); readln(f); writeln('заполните массив'); for i: =1 to f do readln(a[i]); for i: =1 to f do begin j: =pos('d',a[i]); s: =a[i]; while (pos('a',s)< j) and (pos('a',s)< > 0) do begin delete(s,pos('a',s),1); j: =j-1; end; if pos('a',s)> j then k: =k+1; end; if k=0 then writeln('таких строк нет') else writeln('такие строки есть'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
egor200601205.11.2022 19:33
-
flamerplay12301.05.2023 05:02
-
Imychka10.08.2022 14:05
-
rusibragimova920.03.2021 23:09
-
vityadmitriev201.03.2020 15:30
-
yaltame25.06.2021 22:08
-
samruk197418.04.2020 23:59
-
85Angel8510.03.2020 11:04
-
2400000630.09.2020 10:12
-
Alimmmmm28.01.2023 02:39
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.