Помогите составить программу решения задачи в паскаль АВС.

Дано вещественное число А и целое числоN (больше 0). Найти А в степени N = ААА ... * А (числа А перемножаются N раз)

Question

Информатика

Федосия

4 июня, 15:23

Помогите составить программу решения задачи в паскаль АВС.

Дано вещественное число А и целое числоN (больше 0). Найти А в степени N = ААА ... * А (числа А перемножаются N раз)

+1

Ответы (1)

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

Саверий · Answer 1

Program pps;

var a, rezult:real;

n, i:integer;

begin

writeln ('a=') ; readln (a) ;

writeln ('n=') ; readln (n) ;

rezult:=1;

for i:=1 to n do

rezult:=rezult*a;

writeln ('rezult=', rezult) ;

end.