Question

viết chương trình tính x mũ n

lẹ nha cá bạn đề HK2 bạn nào làm nhanh mik cho 5 sao

Answer 1

uses crt;

var x,n,i,lt:integer;

begin

clrscr;

write('x='); readln(x);

write('n='); readln(n);

lt:=1;

for i:=1 to n do

lt:=lt*x;

writeln(lt);

readln;

end.

Answer 2

var x,n:longint;

begin

read(x,n);

while n<>0 do

begin

n:=n-1;

x:=x*x;

end;

write('gia tri ',x,'mu',n,'la : ',x);

end.

hứa 5 sao nhe :)