Считывание слов из файла

Денчик

3)В файле хранится текст, подсчитать, сколько в нем слов.
1 ответ

Денчик

uses crt;
var f: text;
    s: string;
    i,k: integer;
begin
assign(f,'C:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      readln(f,s);
      for i:=1 to length(s)-1 do
          if (s[i]=' ') and (s[i+1]<>' ') then inc(k);
      inc(k);
      end;
writeln('Количество слов ',k);
readln;
end.