Question

Помогите пожалуйста написать программу на паскале с использованием var

Answer 1

В твоей схеме содержатся ошибки, но про это мы забудем -_-

Код:

var

n, i : integer;

a, y : real;

begin

readln(a, n);

y := 1;

for i := 1 to n do

begin

y := y * a;

end;

writeln(y:5:2);

end.

Вариант с while

var

n, i : integer;

a, y : real;

begin

readln(a, n);

y := 1;

i := 1;

while i <= n do

begin

y:= y * a;

i:= i + 1;

end;

writeln(y:5:2);

end.

Answer 2

program test;

uses Math;

var

n, i: Integer;

a, y: Real;

begin

ReadLn(a, n);

y := 1;

i := 1;

while (i <= n) do begin

y := power(a, n);

i += 1;

end;

WriteLn(y);

end.

Если в блоке цикла неправильно написал, то напиши. Просто здесь не видно. В общем, если цикл выполняется, то y := a^n (в комментариях ты написал a^n), i := i + 1

Если там реально y := y * a, то замени 11-ую строчку на эту