Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var n, i : integer; f : text;
begin
clrscr;
assign(f, 'BAITAP.txt'); reset(f);
for i := 1 to 5 do begin read(f, n);
write(n,' '); end;
close(f);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin