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

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

Question

Информатика

Федосия

26 июля, 21:54

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

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

+2

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