Question

Выводятся целые положительные числа а и n вывести а в степени n (n не более 19, а не более 9 через Паскаль ПОМОГИТЕ​

Answer 1

Объяснение:

Program zero;

Var a, n, i:Integer;

Begin

Whiteln('Введите число: ');

Readln(a);

Whiteln('Введите степень: ');

Readln(n);

If (a>0) and (b>0) then

Begin

If (a<=9) and (n<=19) then

Begin

For i:=1 to n do

a:=a*a

End

else Writeln('Числа не соответствуют условию!!! ');

End

else Writeln('Числа не соответствуют условию!!! ');

Whiteln('Число в степени: ', а);

Readln

End.

Answer 2

Для вычисления целых положительных чисел a в степени n с ограничением n не более 19 и a не более 9 в Pascal, вы можете использовать следующий код:

pascalCopy code
program PowerCalc;
var
  a, n, result: integer;
begin
  writeln('Введите целое положительное число a (не более 9): ');
  readln(a);

  writeln('Введите степень n (не более 19): ');
  readln(n);

  if (a <= 9) and (n <= 19) then
  begin
    result := 1;
    for var i := 1 to n do
    begin
      result := result * a;
    end;
    writeln('Результат: ', result);
  end
  else
    writeln('Введите корректные значения для a и n.');

  readln;
end.

Этот код сначала запрашивает у пользователя значения a и n, а затем проверяет, что они соответствуют ограничениям (a <= 9 и n <= 19). Если введенные значения соответствуют ограничениям, то программа вычислит a в степени n и выведет результат на экран. В противном случае программа выдаст сообщение об ошибке.