Question

С клавиатуры вводится a и n. Посчитать a^n. (Паскаль)

Answer 1

Ответ:

program HelloWorld;

var: a,n: integer;

begin

writeln('Чему равно a?');

readln(a);

writeln('Чему равно n?');

readln(n);

writeln('Равно: ', exp(a*LN(n)));

end.

Объяснение:

Answer 2

Для вычисления a^n вам необходимо использовать цикл или рекурсию в языке программирования Паскаль. Вот пример реализации с помощью рекурсии:

pascalCopy code
program Power;

function PowerRecursion(a, n: Integer): Integer;
begin
  if n = 0 then
    PowerRecursion := 1
  else
    PowerRecursion := a * PowerRecursion(a, n - 1);
end;

var
  a, n, result: Integer;
begin
  Write('Введите значение a: ');
  ReadLn(a);

  Write('Введите значение n: ');
  ReadLn(n);

  result := PowerRecursion(a, n);
  WriteLn('Результат a^n: ', result);
end.

Пользователь вводит значения a и n с клавиатуры, а затем программа использует рекурсивную функцию PowerRecursion для вычисления a^n и выводит результат.