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

axmefibragimovp09v94 axmefibragimovp09v94    1   07.10.2019 22:50    10

Ответы
Macsum204 Macsum204  10.10.2020 02:44

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика