Advertisement
Guest User

Untitled

a guest
Jun 24th, 2019
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.32 KB | None | 0 0
  1. program p22;
  2.  
  3. const
  4.   filename = 'e:\file.txt';
  5.   N = 500;
  6.  
  7. var
  8.   f: text;
  9.   c: char;
  10.   str: array [0..N] OF CHAR;
  11.   s: string;
  12.  
  13.   i, len: integer;
  14.  
  15.  
  16. begin
  17.   assign(f, filename);
  18.   reset(f);
  19.   i := 0;
  20.  
  21.   while not eoln(f) do
  22.     read(f, s);
  23.  
  24.   writeln(s);
  25.  
  26.   close(f);
  27.  
  28.  
  29.  
  30.   readln
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement