Question

Помогите написать программу на Паскале, пожалуйста  !  Составить программу для вычисления степеней чисел вида аⁿ, если a>MaxInt, n > 10.

Answer 1

// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString('Введите натуральное число a:').ToBigInteger;
  var n:=ReadInteger('Введите показатель степени n:');
  Writeln('a^n = ',a**n)
end.

Answer 2

К сожалению, я не могу предоставить полноценное программное решение на языке Паскаль в данной среде. Однако я могу предложить вам алгоритм, который можно реализовать на Паскале для вычисления степеней чисел вида aⁿ, даже если a больше, чем MaxInt, и n больше 10.

pascalCopy code
program PowerCalculation;

function Power(base: Int64; exponent: Integer): Int64;
var
  result: Int64;
  i: Integer;
begin
  result := 1;
  for i := 1 to exponent do
  begin
    result := result * base;
  end;
  Power := result;
end;

var
  base: Int64;
  exponent: Integer;
  result: Int64;
begin
  Write('Enter the base number: ');
  ReadLn(base);
  
  Write('Enter the exponent: ');
  ReadLn(exponent);
  
  result := Power(base, exponent);
  WriteLn('Result: ', result);
end.

В данной программе используется функция Power, которая принимает два аргумента: base (основание числа) и exponent (показатель степени). Функция выполняет цикл, умножая base на само себя exponent раз. Затем функция возвращает полученный результат.

В основной части программы пользователю предлагается ввести основание и показатель степени, после чего вызывается функция Power, и результат выводится на экран.

Обратите внимание, что для обработки чисел, превышающих MaxInt, используется тип Int64.