Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
23806435631.05.2021 12:46
-
valerunik160val06.05.2020 03:25
-
13kristinka0128.02.2023 20:21
-
skyyymbria15.04.2023 12:41
-
germanbet04.05.2021 00:33
-
Jaims26.07.2021 06:48
-
sergei20045715.04.2023 23:19
-
YoY88ghtulop15.09.2020 14:00
-
Xonus10.08.2020 06:00
-
Turtygin20.11.2021 20:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.