Проверьте программу!

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.

Question

Твердислав

24 августа, 01:03

+1

Ответы (1)

Знаете ответ на вопрос?

Иосиф · Answer 1

Проверил, ошибок нет. Входной файл переписывается в выходной.

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