Даны a и N. Вычислите a(в степени N) без использования логарифма и экспоненты. Паскаль...

Question

Даны a и N. Вычислите a(в степени N) без использования логарифма и экспоненты. Паскаль ПОМОГИТЕ

Answer 1

1

2

3

4

5

6

7

8

9

10

11

12

13

var a,p:real;

   n,i:integer;

   

begin

write('Введите а:');readln(a);

write('Введите n:');readln(n);

 

p:=a;

if n<>0 then for i:=2 to n do p:=p*a

       else p:=1;  

 

writeln(a,'^',n,'=',p);

end.