Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  euromilhoes
Language: PASCAL
Code:
     Program Pzim ;
var f:file of integer;     
n:integer;
conta integer;
 Begin
 conta:=filesize(f);
 assign (f,'file.date');
 reset(f);
 read(f,n);
 while(n);
 read(f,n);
 end;
 write('numero do euromilhoes');
 write(conta,'numero de ficheiro ');
 close(f);
 
  
 End.
Comments: