Дан текстовый файл f, каждая строка которого состоит из слов, разделенных одним и более пробелами. записать все строки, в которых количество слов минимально, но больше нуля, в новый файл g.

277

424

Посмотреть ответы 2

Ответы на вопрос:

dsdg1g

Информатика

4,7(44 оценок)

//pascal abc.net 3.1 сборка 1219 var f: text; ars: array of string; s,s1: string; min,n,i: integer; begin n: =1; min: =integer.maxvalue; assign(f,'text.txt'); reset(f); while not(eof(f)) do begin readln(f,s); s1: =s; s: =s.trim; i: =1; while i< > length(s) do if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i); if ((s.split).length< =min) and ((s.split).length< > 0) then begin if (s.split).length=min then begin inc(n); setlength(ars,n); ars[n-1]: =s1; end else begin n: =1; setlength(ars,n); ars[n-1]: =s1; end; min: =(s.split).length; end; end; close(f); assign(f,'text1.txt'); rewrite(f); for i: =0 to n-1 do writeln(f,ars[i]); close(f); end. содержимое файла text.txt: хей патимейкер уличный денсер шейкер шейкер содержимое файла text1.txt: уличный денсер

нононононон

Информатика

4,8(36 оценок)

Var a: longint; s: string; begin read(s); while pos('да',s)> 0 do begin a: =pos('да',s); delete(s,a,2); insert('нет',s,a) end; writeln(s) end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.