tính tổng s=1+2+3+......+n với n số nguyên dương được nhập vào từ 1 têp có tên dulieu.txt đặt trên ổ đĩa E. Kết quả ghi ra tệp tong.doc liệu trên ổ đĩa E

#include <iostream>
#include <fstream>
using namespace std;
int main()
{
    int n,t=0;
    ifstream inp("E:\\dulieu.txt");
    ofstream out("E:\\tong.doc");
    inp>>n;
    for(int i=1;i<=n;i++){
        t+=i;
    }
    out<<t;
    inp.close();
    out.close();
    //samon247
    return 0;
}

var s,n,i:longint;

begin

assign(input,'dulieu.txt');

reset(input)

readln(n);

close(input);

for i:=1 to n do

s:=s+i;

assign(output,'tong.doc');

rewrite(output);

write(s);

close(output);

end.