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.
2 votes Thanks 1
1agun0v
Не Вам решать какая у меня голова. Если так, то сможете вообще расписать подробно как получить любое число в любой степени
1agun0v
Не вводя функции подобные этой, а получить расписав через "while", например,"for","repeat"
APALoff
Так что же Вы сразу не обозначили эти условия задачи? Вы думаете тут все телепаты и понимают то, что Вы недоговариваете? Что спросили - на то и получили ответ.
APALoff
Я? Никаких. Свое решение я привёл в рамках Ваших первоначально заданных условиях - и мое решение, по моему мнению, полностью отвечает условиям.
1agun0v
"Не вводя функции подобные этой, а получить расписав через "while", например,или "for" " Если распишите, чтобы понятно все было, то высказываю свою благодарность Вам и забираю свои упреки и недовольства обратно.
APALoff
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.
Answers & Comments
Verified answer
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.
Begin
Readln(A,N);
R:=1;
While N>0 do
Begin
R:=R*A;
Dec(N);
end;
Writeln(R);
end.