Question

Напишите программу, которая вводит два числа A и N вычисляет A^N.
Програмный код. НЕ через "power". Заранее спасибо

Answer 1

Function Pow(a : Integer; b : Integer) : Integer;
Begin
  If b=0 then Pow:=1 else Pow:=a*Pow(a,b-1);
End;

Var A,N : Integer;
Begin
  Readln(A,N);
  Writeln(Pow(A,N));
end.

Answer 2

Претензии имеете ко мне?

Answer 3

Я? Никаких. Свое решение я привёл в рамках Ваших первоначально заданных условиях - и мое решение, по моему мнению, полностью отвечает условиям.

Answer 4

"Не вводя функции подобные этой, а получить расписав через "while", например,или "for" " Если распишите, чтобы понятно все было, то высказываю свою благодарность Вам и забираю свои упреки и недовольства обратно.

Answer 5

Var R,A,N : Integer;
Begin
Readln(A,N);
R:=1;
While N>0 do
Begin
R:=R*A;
Dec(N);
end;
Writeln(R);
end.

Answer 6

Спасибо^^.