viết chương trình con để a) Đọc từ tệp 'VD1.inp' số dương N b) Ghi lên tệp 'VD2.inp' số nguyên dương N GIÚP MK VỚI , MK CẢM ƠN Ạ
2 câu trả lời
var f:text;
n:longint;
begin
assign(f,'VD1.inp');reset(f);readln(f,n);close(f);
assign(f,'VD2.inp');rewrite(f);
write(f,n);
close(f);
end.
Const Fi='VD1.INP';
Fo='VD2.OUT';
Var f,g: text;
n: longint;
Procedure nhap;
Begin
Assign(f,Fi); Reset(f);
Read(f,n);
Close(f);
End;
Procedure xuat;
Begin
Assign(g,Fo); Rewrite(g);
Write(g,n);
Close(g);
End;
Begin
nhap;
xuat;
End.
Câu hỏi trong lớp
Xem thêm
