Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Bài 14: Kiểu dữ liệu tệp
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.
Đúng 2
Bình luận (0)