Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Để đọc file trong pascal ta làm như sau:
b1: khai báo biến tập tin
`+` cú pháp: var <biến>: text;
b2: mở biến tập tin
`+` cú pháp: assign(<biến>, 'tên tập tin');
b3: đặt định dạng cho file (đọc/ghi file)
`+` đọc: reset(biến);
`+` ghi: rewrite(biến);
uses crt;
var f: text;
i,n: integer;
s: real;
begin
clrscr;
assign(f,'file.inp'); reset(f);
readln(f,n);
close(f);
assign(f,'file.out'); rewrite(f);
s:=0;
for i:=1 to n do s:=1/(i*(i+1));
write(f,s:0:2);
close(f);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin