Bài 1.Giả sử tệp số nguyên chứa 2 số nguyên. Viết ct tính a^b. Bài 2. Viết ct đọc dữ liệu từ tệp vd: . inp chứa 2 số nguyên sau đó tính trung bình cộng. Mn giúp vs Cám ơn nhìu

Bài 1:

Const fi='songuyen.txt';
Var f: text;
    a,b,i:,s longint;
Begin
        Assign(f,fi); Reset(f);
        Read(f,a,b); s:=1;
        For i:=1 to b do
                s:=s*a;
        Write(s);
Close(f); Readln;
End.

Bài 2:

Const fi='tbc.txt';
Var f: text;
      a,b,s: longint;
Begin
        Assign(f,fi); Reset(f);
        Read(f,a,b);
        Write((a+b)/2);
Close(f); Readln;
End.

Bài 1:

Const Fi='Tep.TXT';
Var f: text;
    a,b,i: longint;
    s: qword;
Begin
        Assign(f,Fi); Reset(f);
        Read(f,a,b);
        s:=1;
        For i:=1 to b do
                s:=s*a;
        Write('S = ',s);
        Close(f);
        Readln
End.

Bài 2:

Const Fi='Tep.TXT';
Var f: text;
    a,b,i: longint;
    s: qword;
Begin
        Assign(f,Fi); Reset(f);
        Read(f,a,b);
        s:=a+b;
        Write('TBC = ',s/2:0:2);
        Close(f);
        Readln
End.