Найти количество чисел в файле

PascalHelp

Дано файл f , компоненты которого являются целыми числами . Найти количество чисел в файле
4 ответа

PascalHelp

k:=filesize-1;


PascalHelp

Хм... ZX Spectrum-128,
k:=filesize;
А Вы позицию последнего числа в файле написали.


PascalHelp

во, это сильно!
var f: file of integer;
begin
  Assign(f, 'yourfile.dat');
  Reset(f);
  WriteLn('Numbers in file ', FileSize(f));
  Close(f)
end.


PascalHelp

Ох, инерционная ошибка...
k:=filesize(f);
естественно...