Question

Em hãy viết ct máy tính bằng ngôn ngữ lập trình pascal để tính giá trị của 2^n (với n là số tự nhiên nhập từ bàn phím)

Biết rằng: 2^n=2*2*2...2

Giúp mình với 

Answer 1

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap n '); readln(n);

t:=1;

for i:=1 to n do t:=t*2;

write('2^,n,' = ',t);

readln

end.

Answer 2

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.