SHARE
TWEET

Untitled

a guest Jan 18th, 2020 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project7;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils;
  9.   var
  10.   ff: TextFile;
  11.   i,z :Integer;
  12.   s: String;
  13. begin
  14. AssignFile(TextFile, 'Test.txt');
  15. Rewrite(TextFile);
  16. Writeln(TextFile,'hello');
  17. CloseFile(TextFile);
  18. Append(TextFile);
  19. Writeln('Введите строку...');
  20. Readln(s);
  21. Writeln(TextFile, '');
  22. Writeln(TextFile, s);
  23. CloseFile(TextFile);
  24. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top