test1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 20 行

var f:text;
    n,nr:integer;
begin
assign(f,'f1.txt');
reset(f);
while not eof(f) do
              begin
              nr:=0
              while not eoln(f) do
                                begin
                                nr:=nr+1;
                                read(f,n);
                                end;
                                write(nr,' ');
                                readln(f);
                                end;
readln;
close(f);
end.