Задан текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов

@StayTeeVone · Регистрация: 05.11.2019

Студворк — интернет-сервис помощи студентам

Помогите решить задачу пожалуйста!

Заданный текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов.
Буду очень благодарен!

@ZX Spectrum-128 · 25.12.2019, 16:43

Pascal

const
  razd: set of char = [' ', ',', ':'];
 
var
  s: string;
  f, g: text;
  i, k, n: integer;
 
begin
  assign(f, 'input.txt');
  assign(g, 'output.txt');
  reset(f);
  rewrite(g);
  while not Eof(f) do 
  begin
    k := 0;
    readln(f, s);
    for i := 1 to length(s) do
      if s[i] in razd then
        inc(k);
    if k < 5 then
      writeln(g, s);
  end;
  close(f);
  close(g);
end.

@StayTeeVone 0 / 0 / 0 Регистрация: 05.11.2019 Сообщений: 22
		1
	Задан текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов 25.12.2019, 15:38. Показов 1703. Ответов 1 Метки нет (Все метки) Помогите решить задачу пожалуйста! Заданный текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов. Буду очень благодарен! 0

Опции темы