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

Question

Информатика

Люня

30 августа, 02:52

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

+2

Ответы (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.