Nhập từ bàn phím 2 số nguyên dương a và b. Lập trình tính và đưa ra màn hình a mũ b
2 câu trả lời
Program BTT;
Uses crt;
Var a,b,s: int64;
i: longint;
Begin
Clrscr;
Write('Nhap a va b: '); Readln(a,b);
s:=1;
For i:=1 to b do
s:=s*a;
Write(a,' mu ',b,' = ',s);
Readln
End.
uses crt;
var a,b,i,lt:longint;
begin
clrscr;
write('Nhap a,b: ');readln(a,b);
lt:=1;
for i:=1 to b do lt:=lt*a;
writeln('a^b= ',lt);
readln
end.
