Массив переменного размера (n) заполнить степенями двойки.
Массив переменного размера (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.
Не нашли ответ?
Похожие вопросы