Question

написать программу, в который пользователь вводит число и показатель степени,в которую возвести число , используя цикл с постусловием

Answer 1

Циклом долго.  

Эта проблема уже давно решена. вот готовая отлаженная функция:  

Function Pow(A,B:Real):Real;  

{ Функция возведения в степень (A^B) }  

Var T:Real;  

Begin  

T := Abs(A);  

If A < 0 Then Pow := (-1)*Exp(B*Ln(T))  

Else Pow := Exp(B*Ln(T));  

End;