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

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

Question

Информатика

Аксинья

29 января, 07:48

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

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

+3

Ответы (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.