Program LUY_THUA;
Uses Crt;
Var a,n:integer;
Function lt(a,n:integer):longint;
Var i:integer; kq:longint;
Begin
kq:=1;
For i:=1 to n do
kq:=kq*a;
lt:=kq;
End;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH A^N:');
Writeln('----------------------------------');
Write('Nhap a = '); readln(a);
Write('Nhap n = '); readln(n);
Writeln(a,'^',n,' = ',lt(a,n));
Readln;
End.
Program GIAI_THUA;
Uses Crt;
Var n:integer;
Function gt(n:integer):longint;
Var kq,i:integer;
Begin
kq:=1;
For i:=1 to n do
kq:=kq*i;
gt:=kq;
End;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH N! :');
Writeln('---------------------------');
Write('Nhap n = '); readln(n);
Writeln(n,'! = ',gt(n));
Readln;
End.
Ý kiến bạn đọc
Những tin cũ hơn