Em hãy viết chương trình pascal để thực hiện yêu cầu sau : Nhập 2 số nguyên a và n. Tính và xuất kết quả của an (a mũ n)và tích các số từ 1 đến n.
Ví dụ nhap a = 3 nhap n = 5 a mu n (35 ) = 243 tích tu 1 den 5 = 120
Em hãy viết chương trình pascal để thực hiện yêu cầu sau : Nhập 2 số nguyên a và n. Tính và xuất kết quả của an (a mũ n)và tích các số từ 1 đến n.
Ví dụ nhap a = 3 nhap n = 5 a mu n (35 ) = 243 tích tu 1 den 5 = 120
uses crt;
var a,n,i,bp,tich: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap n: ‘); readln (n);
bp:=1;
tich:=1;
for i:=1 to n do bp:=bp*a;
for i:=1 to n do tich:=tich*i;
writeln (a,’ mu ‘,n,’ = ‘,bp);
writeln (‘tich tu a den ‘,n,’ = ‘,tich);
readln;
end.
program baigiai;
uses crt;
var a,n,i:byte;
mu,tich:int64;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap n: ‘); readln(n);
mu:=1;
for i:=1 to n do
mu:=mu*a;
tich:=1;
for i:=1 to n do
tich:=tich*i;
writeln(a,’ mu ‘,n,’ la: ‘,mu);
writeln(‘Tich cac so tu 1 den ‘,n,’ la: ‘,tich);
readln
end.