Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Возведение в степерь
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.
1 | Автор: Cristina | 2012-11-14, 19:38   |  Репутация: [ + 0 ]
И степень и число могут быть дробными, учти)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-11-14, 20:50   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-11-14, 20:50   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: