rofish1.pas

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

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