Возвести целое число n в nнную степень. Напишите программу

Question

Информатика

Веста

5 декабря, 19:15

Возвести целое число n в nнную степень. Напишите программу

+1

Ответы (1)

Знаете ответ на вопрос?

Савиниан · Answer 1

Var xn, x, n, i:integer;

begin

write ('Введите число ') ;

readln (xn) ;

write ('Введите степень числа ') ;

readln (n) ;

x:=xn;

for i:=1 to n-1 do

begin

x:=x*xn;

end;

writeln (x) ;

end.