Вывод ответа #1864515589

возведение числа в степень я правильно понял ?
если да то вот ход решения задачи: Чтобы возвести число в степень, его надо умножить само на себя количество раз, равное показателю степени. Т.е. возведение числа n в степень d будет выглядеть так: nd = n1 * n2 * n3 * … * nd, где индексы внизу просто указывают очередное по счету n. Если d равно нулю, то, какое бы число не стояло в основании степени, результат всегда будет равен единице: n0 = 1.

program step;
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 := res * num;
 i := i + 1
 end;

 if deg < 0 then
 res := 1 / res;

 writeln (res:10:5);

readln
end.