Дана строка. указать те слова, которые содержат хотя бы одну букву k. составить программу на паскаль. заранее ^_^
109
256
Ответы на вопрос:
Var s,tmp: string; i,n: integer; flag,word: boolean; function letter (const let: char): boolean; begin if ((let> ='a') and (let< ='z')) or ((let> ='a') and (let< ='z')) then letter: =true else letter: =false; end; begin readln (s); s: =s+' '; n: =length(s); flag: =false; for i: =1 to n do begin if (letter(s[i])) and (not flag) then begin flag: =true; tmp: =''; word: =false; end else if (not letter(s[i])) and (flag) then begin flag: =false; if (word) and (not (tmp='')) then writeln (tmp); end; if (flag) then begin tmp: =tmp+s[i]; if (s[i]='k') then word: =true; end; end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
imaria124.06.2020 17:21
-
sasha235sasha19.01.2021 03:13
-
rmshturkop01n7325.05.2020 10:57
-
fariii04622.07.2021 22:00
-
Coul2000nator12.01.2021 03:48
-
torshindanya14.08.2022 12:07
-
ksuna210304.12.2022 19:38
-
jvdvzkris09.02.2023 09:34
-
alyonkakingAlyonka7604.05.2020 15:30
-
yfcnz121524.04.2023 05:13
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.