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

Ответы 6

  • Претензии имеете ко мне?
  • Я? Никаких. Свое решение я привёл в рамках Ваших первоначально заданных условиях - и мое решение, по моему мнению, полностью отвечает условиям.
  • "Не вводя функции подобные этой, а получить расписав через "while", например,или "for" " Если распишите, чтобы понятно все было, то высказываю свою благодарность Вам и забираю свои упреки и недовольства обратно.
    • Автор:

      justice70
    • 5 лет назад
    • 0
  • 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.
  • Спасибо^^.
    • Автор:

      kahlua
    • 5 лет назад
    • 0
  • 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.
    • Автор:

      fisher
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years