Код
uses crt;
var
f:file of integer;
i:integer;
begin
clrscr;
assign(f,'c:\fp\bin\win32\a.txt');
{$I-}
reset(f);
{$I+}
if ioresult <>0then halt;
while not eof(f) do
begin
read(f,i);
write(i,' ');
end;
readln;
end.
var
f:file of integer;
i:integer;
begin
clrscr;
assign(f,'c:\fp\bin\win32\a.txt');
{$I-}
reset(f);
{$I+}
if ioresult <>0then halt;
while not eof(f) do
begin
read(f,i);
write(i,' ');
end;
readln;
end.
В файле а.тхт число 88
Так почему же пишется число 14392 кокда я запускаю прогу???