Viết chương trình tính tổng T:a^n +b^m+c^p
Với các số a, b, c, m, n, p nhập từ bàn phím
Viết chương trình tính tổng T:a^n +b^m+c^p Với các số a, b, c, m, n, p nhập từ bàn phím
By Serenity
By Serenity
Viết chương trình tính tổng T:a^n +b^m+c^p
Với các số a, b, c, m, n, p nhập từ bàn phím
var a, b, c: word;
m, n, p: byte;
T: qword;
Function gt(k: word; x: byte): qword;
Var j: byte;
Begin
Gt:=1;
For j:=1 to x do gt:=gt*k;
End;
Begin
Write(‘nhap a va n: ‘); readln(a, n);
Write(‘nhap b va m: ‘); readln(b, m);
Write(‘nhap c va p: ‘); readln(c, p);
T:= gt(a, n) + gt(b, m) + gt(c, p);
Write(‘tong: ‘, t);
Readln
End.
program tinh_tong;
uses crt;
var a,b,c,n,m,p:integer;
t:int64;
{—Chuong-trinh-con—}
function gt(k,h:integer):int64;
var i:integer;
begin
gt:=1;
for i:=1 to h do
gt:=gt*k;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
write(‘Nhap n: ‘); readln(n);
write(‘Nhap m: ‘); readln(m);
write(‘Nhap p: ‘); readln(p);
t:=gt(a,n)+gt(b,m)+gt(c,p);
write(‘Tong la: ‘,t);
readln;
end.