Дано вещественное число А и целое число N (>0) Вывести А в степени N: А в степени N=АААА ... А (числа А перемножаются N раз).

Question

Иродион

31 июля, 21:21

+1

Ответы (1)

Знаете ответ?

Степа · Answer 1

var a, k:real;

n:integer;

begin

readln (a, n) ;

k:=a;

while n1 do begin

n:=n-1;

a:=a*k;

end;

writeln (a) ;

end.

Дано вещественное число А и целое число N (>0) Вывести А в степени N: А в степени N=А*А*А*А ... * А (числа А перемножаются N раз).