Проверьте программу!Program f4;var f1, f2 : text;    s: string ;begin  Assign(f1,'t1.txt');  Assign(f2,'t2.txt');  Reset(f1);  Rewrite(f2);  while not eof(f1) do  begin    readln(f1, s);    writeln(f2,s);  end;  close(f1);  clo...

Проверьте программу! Program f4; var f1, f2 : text;     s: string ; begin   Assign(f1,'t1.txt');   Assign(f2,'t2.txt');   Reset(f1);   Rewrite(f2);   while not eof(f1) do   begin     readln(f1, s);     writeln(f2,s);   end;   close(f1);   close(f2); end.
Гость
Ответ(ы) на вопрос:
Гость
Проверил, ошибок нет. Входной файл переписывается в выходной.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы