Question

Какой будет ответ программы Pascalprogram PR;function Power(a: integer; n: integer): integer;var i, Result:integer;begin Result := 1; for i:=1 to n do Result *= a;end;var a: integer; n: integer; begina:=3;n:=4;writeln(Power(a,n)); end. C++#include <iostream>using namespace std;double Power(double a, int n){double Result = 1;for(int i=1;i<=n;i++){ Result*=a; } return Result;}int main(){ double a=3; int n=4; cout <<Power(a,n) << endl; return 0;}A) 81B) 4C) ОшибкаD) В программе не верно описана функцияE) Нет верного ответа​

Answer 1

Ответ А) 81. Верность гарантирую.

Answer 2

Исправим ошибки в коде Pascal и C++:

Pascal:

pascalCopy code
program PR;

function Power(a: integer; n: integer): integer;
var
  i, Result: integer;
begin
  Result := 1;
  for i := 1 to n do
    Result := Result * a;
  Power := Result;  // добавляем возврат значения
end;

var
  a: integer;
  n: integer;

begin
  a := 3;
  n := 4;
  writeln(Power(a, n));
end.

C++:

cppCopy code
#include <iostream>
using namespace std;

double Power(double a, int n) {
  double Result = 1;
  for (int i = 1; i <= n; i++) {
    Result *= a;
  }
  return Result;
}

int main() {
  double a = 3;
  int n = 4;
  cout << Power(a, n) << endl;
  return 0;
}

Теперь ответ будет:

A) 81