Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project5556;
- uses
- System.SysUtils;
- const
- n = 3;
- var
- inFile,outFile:TextFile;
- j,i,t: Integer;
- begin
- AssignFile(inFile,'C:\Users\gaite\Desktop\лаба\Win32\Debug\inFile.txt');
- reset(inFile);
- read(inFile,j);
- read(inFile,t);
- close(inFile);
- i := j + t;
- AssignFile(outFile,'C:\Users\gaite\Desktop\лаба\Win32\Debug\outFile.txt');
- rewrite(outFile);
- reset(outFile);
- write(outFile,j );
- close(outFile);
- writeln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement