bai tap pascal

[macvosong]

các bạn có thể giúp mình làm mẫu bài nay ko? mình chỉ không biết nên xử lý các tập tin input và out put thế nào thôi
đề :
- Đọc số nguyên dương n từ tập từ tập tin input.txt (n<=100)
- Tính kết quả của biểu thức T với : T=1-2+3-4+...n
- Ghi các kết quả ra tập tin output.txt



các bạn giúp minh giải bài này với nhe.thanks nhìu

[auauau97]

các bạn có thể giúp mình làm mẫu bài nay ko? mình chỉ không biết nên xử lý các tập tin input và out put thế nào thôi
đề :
- Đọc số nguyên dương n từ tập từ tập tin input.txt (n<=100)
- Tính kết quả của biểu thức T với : T=1-2+3-4+...n
- Ghi các kết quả ra tập tin output.txt



các bạn giúp minh giải bài này với nhe.thanks nhìu

Uses crt;
Var
  F,F1:text;
  n,i,s,t,s2:integer;
BEGIN
  Clrscr;
  Assign(F,'input.txt');
  Reset(F);
  Assign(F1,'output.txt');
  Rewrite(F1);
  Read(F,n);
  s:=0;
  s2:=0;
  For i:=1 to n do
    Begin
      If i mod 2=1 then s:=s+i
      Else s2:=s2+i;
    End;
  Write(F1,s-s2);
  Close(F);
  Close(F1):
END.

[HGMinh95]

Uses crt;
Var
  F,F1:text;
  n,i,s,t,s2:integer;
BEGIN
  Clrscr;
  Assign(F,'input.txt');
  Reset(F);
  Assign(F1,'output.txt');
  Reset(F1);
  Read(F,n);
  s:=0;
  s2:=0;
  For i:=1 to n do
    Begin
      If i mod 2=1 then s:=s+i
      Else s2:=s2+i;
    End;
  Write(F1,s-s2);
  Close(F);
  Close(F1):
END.

Phải là rewrite(f1) chứ

[auauau97]

Phải là rewrite(f1) chứ

À ờ đúng rồi, mình quên mất, tại do copy ra mà.
Đã fix