Заполнение степенями двойки на Pascal

Заполнение степенями двойки...

const 
  Sz = 100;
var 
  a: array [1..Sz] of integer;
  N: integer;   
begin
  N := 20;
  a[1] := 2;
  for var i:=2 to N do
    a[i] := a[i-1] * 2;
  writeln('Степени двойки: ');
  for var i:=1 to N do
    writeln(i:3,a[i]:9);
end.



Просмотров: 1706
10.02.2015, 10:40 -

Категория: Статьи » Программирование » Pascal