Почему выводится ноль в программе?

program pr1;

var a: real;

n: longint;

function power (a:real; n:longint) : real;

begin

var i: integer;

var anew: real;

anew:=a;

for i: = 2 to n do

begin

a:=a*anew;

end;

end;

begin

readln (a, n) ;

writeln (power (a, n)) ;

end.

Question

Информатика

Аталай

30 мая, 08:50

Почему выводится ноль в программе?

program pr1;

var a: real;

n: longint;

function power (a:real; n:longint) : real;

begin

var i: integer;

var anew: real;

anew:=a;

for i: = 2 to n do

begin

a:=a*anew;

end;

end;

begin

readln (a, n) ;

writeln (power (a, n)) ;

end.

+2

Ответы (1)

Знаете ответ на вопрос?

Очил · Answer 1

Program pr1;

var

a: real;

n: longint;

function power (a:real; n:longint) : real;

begin

var i: integer;

var anew: real;

anew:=a;

for i: = 2 to n do

a:=a*anew;

power:=a

end;

begin

readln (a, n) ;

writeln (power (a, n)) ;

end.

Почему выводится ноль в программе?program pr1;var a: real;n: longint;function power (a:real; n:longint) : real;beginvar i: integer;var anew: real;anew:=a;for i: = 2 to n dobegina:=a*anew;end;end;beginreadln (a, n) ;writeln (power (a, n)) ;end.