Помогите пожалуйста!!!!! дано действительно x, не равное 0, и натуральное n. вычислить...

Question

Помогите пожалуйста!!!!! дано действительно x, не равное 0, и натуральное n. вычислить x^n, используя цикл for информатика

Answer 1

Var

n,x,s,i:integer;

Begin

Readln(x,n);

s:=1;

For i:=1 to n do

s:=s*x;

Writeln(s);

end.