Объяснение:
var mas : [0..9] of integer;
x, b, i : integer;
begin
x := 2;
b:= 1;
i = 0;
while x != 1024 do
x:= exp(b*ln(x));
mas[i] := x;
i := i + 1;
b := b + 1;
end;
Если что непонятно или не верно - допишу
Объяснение:
var mas : [0..9] of integer;
x, b, i : integer;
begin
x := 2;
b:= 1;
i = 0;
while x != 1024 do
begin
x:= exp(b*ln(x));
mas[i] := x;
i := i + 1;
b := b + 1;
x := 2;
end;
end;
Если что непонятно или не верно - допишу