Advertisement
Guest User

Untitled

a guest
Oct 23rd, 2019
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. program Project5556;
  2.  
  3. uses
  4. System.SysUtils;
  5.  
  6. const
  7. n = 3;
  8. var
  9. inFile,outFile:TextFile;
  10. j,i,t: Integer;
  11. begin
  12. AssignFile(inFile,'C:\Users\gaite\Desktop\лаба\Win32\Debug\inFile.txt');
  13. reset(inFile);
  14. read(inFile,j);
  15. read(inFile,t);
  16. close(inFile);
  17. i := j + t;
  18. AssignFile(outFile,'C:\Users\gaite\Desktop\лаба\Win32\Debug\outFile.txt');
  19. rewrite(outFile);
  20. reset(outFile);
  21. write(outFile,j );
  22. close(outFile);
  23. writeln;
  24. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement