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

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

Информатика

Имполит

29 апреля, 12:31

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

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.

+3

Ответы (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.