Сформировать и вывести массив размера N, содержащий степени двойки от первой до N-й
Категория: Delphi/Pascal
2012-12-13 22:34:54
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
Поделиться: