BÀI TẬP 16: TÍNH TỔNG

Viết chương trình tính tổng a^x+b^y+c^z+d^k. Với a, x, b, y,c, z, d, k được nhập vào từ bàn phím.

CODE THAM KHẢO:

uses crt;

var a,x,b,y,c,z,d,k: integer;

function tinh(a,n:longint):real;

begin

 tinh:=exp(n*ln(a));

end;

begin

    clrscr;

    readln(a,x);

    readln(b,y);

    readln(c,z);

    readln(d,k);

    writeln((tinh(a,x)+tinh(b,y)+tinh(c,z)+tinh(d,k)):2:0);

    readln;

end.