Составить программу вычеслить степень числа (а) с натуральным показателем n

1

Ответы и объяснения

  • fse13
  • светило науки
2012-10-16T09:55:07+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Код QBasic/QuickBASIC

 

INPUT "enter a: ", a
INPUT "enter n: ", n
res = 1 WHILE n    
IF n AND 1
THEN res = res * a    
a = a * a    
n = n \ 2
WEND
PRINT res

 

Код Pascal

 

var  

a,b: integer;  

c: longint;

Begin  

write('введите число: ');  

readln(a);  

write('введите степень: ');  

readln(b);  

c:=round(exp(ln(a)*b));  

writeln('a^b=',c);  

readln

End.