Сформировать и вывести массив размера N, содержащий степени двойки от первой до N-й

code: #pascal
program Array2;
var
  a: array of LongInt;
  i, n: LongInt;
begin
  ReadLn (n);
  SetLength(a, n);
  for i := 0 to n - 1 do
  begin
    a[i] := round(exp(ln(2)*(i+1)));
    Write (a[i]:5);
  end;
  WriteLn;
  ReadLn;
end. 

автор: Zaharov Nikolay a.k.a. hacker19_90

Поделиться:

Похожие статьи: