Требуется в двух , пишу сюда, ибо сам зашел в тупик. желательно код с комментариями, дабы понять все: 1. вывести на экран те строки файла, которые не содержат слово no заранее
243
494
Ответы на вопрос:
Паскальавс.нет var f: text; s,t: string; i,n: integer; y: boolean; //признак наличия слова no function wr(c: char): boolean; //определяет, буква или нет begin if (c in ['a'..'z']) or (c in ['a'..'z']) then result: =true else result: =false end; begin assign(f,'d: /file.txt'); reset(f); repeat readln(f,t); s: =t; y: =false; i: =pos('no',s); while i> 0 do begin n: =length(s); if n=2 then y: =true else begin if i=1 then begin if wr(s[i+2])=false then y: =true; end else if wr(s[i-1])=false then y: =true; end; delete(s,1,i+2); i: =pos('no',s); end; if y=false then writeln(t); until f.eof; close(f) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
alexgettx03.12.2020 06:47
-
tkacenkoaleksandra06.04.2022 22:31
-
vagiz977910.06.2023 07:06
-
epifya20.01.2023 04:58
-
cuperkissers2008.11.2020 21:53
-
ХУХ0000127.10.2020 21:49
-
elenabuda8528.01.2023 07:07
-
кккк5128.01.2023 11:28
-
elZaCHan125.11.2022 17:55
-
monkeyone10.07.2021 15:16
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.