Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Массив переменного размера (n) заполнить степенями двойки.

Ответ оставил Гость

Паскаль ABC:

Const
N = 7;
Var
A:array[0..N] of real;
i:integer;
Begin
WriteLn(N = ,7);
For i:= 0 to N-1 do
 Begin
 A[i]:=power(2,i);
 WriteLn(2^,i, = ,A[i])
 End;
End.

ABC.net:
Var
A:array of real;
N,i:integer;
Begin
Write(N = );ReadLn(N);
A:=new real[N];
For i:= 0 to N-1 do
 Begin
 A[i]:=power(2,i);
 WriteLn(2^,i, = ,A[i])
 End;
End.