Var x,xn:real;n,i:integer;
begin
readln(x,n);
xn:=1;
for i:=1 to n do xn:=xn*x;
writeln(x:4:2,^,n, = ,xn:5:2);
end.
Пример:
3 5
3.00^5 = 243.00
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.