program kopyala;
uses crt;
var
d1,d2:text;
r1,r2:string;
begin
assign(d1,'1.txt'); {bilgilerin okunacağı dosya değiştirilebilir}
reset(d1);
readln(d1,r1);
close(d1);
assign(d2,'2.txt'); {bilgilerin yazılacağı dosya}
rewrite(d2);
write(d2,r1);
close(d2);
end.
Not: Bilgilerin okunacağı dosya yani 1.txt ilgili dizinde yer alması gerekir. aksi halde program çalışmaz
recepkaramanli61@hotmail.com
recep karamanlı
recepkaramanli61@hotmail.com