Question

информатика 10 класс​

Answer 1

Ответ:

var x,n,k,i:integer;

begin

write('x = ');

readln(x);

write('n = ');

readln(n);

k:=1;

for i:= 1 to n do k:=k*x;

writeln(x,'^',n,' = ',k)

end.