возведение числа в степень я правильно понял ?
если да то вот ход решения задачи: Чтобы возвести число в степень, его надо умножить само на себя количество раз, равное показателю степени. Т.е. возведение числа 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.
-------------
добавлено в 10.17: это вариант с циклом. можно сделать и без. предлагайте свои алгоритмы.
