function Stepen(a,b:integer):integer;
begin
if b = 0 then Stepen:=1
else
Stepen:=a*Stepen(a,b-1);
end;
var
a,b:integer;
begin
writeln('Введите A, B');
readln(a,b);
writeln(Stepen(a,b));
end.
|
|
|
|
И степень и число могут быть дробными, учти)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
