fork download
copy 
  1. programm fsdfs;
  2. var
  3.   f1, f2, f3: textfile;
  4.   i: integer;
  5.   c: char;
  6.  
  7. begin
  8.   assignfile(f1, 'aa.txt');
  9.   assignfile(f2, 'bb.txt');
  10.   assignfile(f3, 'cc.txt');
  11.  
  12.   reset(f1);
  13.   rewrite(f2);
  14.   rewrite(f3);
  15.   i := 0;
  16.   while not(Eof(f1)) do
  17.   begin
  18.     read(f1, c);
  19.     case c of
  20.       ' ':
  21.         begin
  22.           i := 1;
  23.           write(f2, #13#10);
  24.         end;
  25.       #10:
  26.         continue; //Пропустить этот служебный символ
  27.       #13:
  28.         begin
  29.           i := 0; //Перейти на первый файл
  30.           write(f3, #13#10); //Дописать перенос строки.
  31.         end;
  32.     else
  33.       if i = 0 then
  34.         write(f2, c)
  35.       else
  36.         write(f3, c);
  37.     end;
  38.  
  39.   end;
  40.   closefile(f1);
  41.   closefile(f2);
  42.   closefile(f3);
  43.  
  44. end;
Internal error #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/xN9wXa
language:
Pascal (gpc 20070904)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!