Составить программу возведения числа А в N степень

Question

Составить программу возведения числа А в N степень

Answer 1

Var num, deg: integer; 
res: real; 
i: byte;

begin
write ('Число: '); 
readln (num); 
write ('Степень: '); 
readln (deg);
res := 1;
i := 0; 
while i < abs(deg) do begin        
res *=num;       
inc(i)
end;
if deg < 0 then  
res := 1 / res;
writeln (res:10:5);
end.

Comments

Ну нет в задании ограничений на A и N... введите минус 1 в первой степени

---

Теперь работает

---

Кстати, оператор *= всё равно только в ABC.NET есть, так что легче и проще было бы так=))
Begin
Write(ReadReal**ReadReal)
End.