Дано вещественное число А и целое число N( больше 0) Вывести А в степени N: А в степени N=А*А*А*А...*А(числа А перемножаются N раз).
Дано вещественное число А и целое число N(>0) Вывести А в степени N: А в степени N=А*А*А*А...*А(числа А перемножаются N раз).
Ответ(ы) на вопрос:
var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.
Не нашли ответ?
Похожие вопросы