Легкая задача, но я решить не могу

[Тимур]

ват задача которую я не могу решить помогите чем можите:
Написать программу которая выводит таблицу степеней двойки (от нулевой да десятой). Ниже представлен рекомендуемый вид экрана во время работы программы.
Таблица степеней двойки.
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024

[Тимур]

[quote="Тимур"]ват задача которую я не могу решить помогите чем можите:
Написать программу которая выводит таблицу степеней двойки (от нулевой да десятой). Ниже представлен рекомендуемый вид экрана во время работы программы.
Таблица степеней двойки.
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024

[LovesaN]

var
i:integer;

begin
for i:=0 to 10 do
writeln(i,' ',exp(i*ln(2)));
end.

[somewhere]

Код: Выделить всё

var i : integer;

begin
for i:=0 to 10 do Writeln(i,' ',1 shl i);
end.

[BBB]

Код: Выделить всё

var i : integer;

begin
for i:=0 to 10 do Writeln(i,' ',1 shl i);
end.

Не пугай человека (и его препода) СТРАШНОЙ операцией SHL! :lol:

Код: Выделить всё

var i : integer;
      iPower : longint;

begin
  iPower := 1;
  Writeln(0,' ', iPower);
  for i:=1 to 10 do begin
    iPower := 2 * iPower;
    Writeln(i,' ', iPower);
  end;
end.