Question

Câu này làm như thế nào mọi người ơi ......hepl me

Answer 1

Program luy_thua;

Uses crt;

Var a, i, n: integer;

Begin

Write('Nhap co so a: '); readln(a);

Write('Nhap so mu n: '); readln(n);

For i:=1 to n do a:=a*a;

Writeln('Gia tri a luy thua n la: ', a);

Readln;

End.

Answer 2

Phỏ i Var i, n, s, a:integer;

Begin

Readln(a, n);

s:=1;

For i:=1 to n do s:=s*a;

Writeln(s);

End.