Составьте на паскале программу возведения в N-ую степень целого числа X.
program power;
var i, n, x, res:integer;
begin
readln(x, n);
res:=x;
for i:=1 to (n-1) do
begin
res:=res*x;
end;
writeln(res);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
