Question

В текстовом файле находится текст, разбитый на строки . каждая строка состоит из слов,разбитых пробелами.Посчитать количество строк и слов в файле и записать результат в новый файл.

Answer 1

{ Pascal ABC.NET 3.2 }
var  f: text;  s: string;  i, l_line, slov: integer;
begin
  Assign(f, 'd:in.txt');
  Reset(f);
  while not Eof(f) do begin
    Readln(f,s);
    s := Trim(s);
    l_line := Length(s);
    if l_line <> 0 then begin
      for i:=1 to l_line do
        if s[i] = ' ' then slov := slov + 1;
              slov := slov + 1;
      end;
  end;
  Close(f);
  Assign(f, 'd:out.txt');
  Rewrite(f);
  Write(f, slov);
  Close(f);
end.