Возведение в степень (Integer)

Функция возведения в степень. Для целых чисел.


uses crt;
var
n, p: integer;

function Pow(n, p: integer): real;
var
t: int64;
i, p1: integer;
begin
p1 := abs(p);
t := 1;
for i := 1 to p1 do
t := t * n;
if p < 0 then pow := 1 / t;
if p=0 then pow:=1;
if p>0 then pow := t;
end;


begin
readln(n, p);
writeln(pow(n, p));
end.

0 0 голос
Article Rating
Подписаться
Уведомить о
guest
0 Комментарий
Межтекстовые Отзывы
Посмотреть все комментарии