Школьная задача

[hsxt]

Здравствуйте! Помогите, пожалуйста, решить задачу. Нужно написать программу на Паскале, которая бы выводила от 2 в нулевой степени до 2 в 13 степени.

[Stilet]

Так?:

var i,n:integer;
begin
n:=1;
for i:=0 to 13 do begin
 n:=n*2; write(n:5);
end; readln;
end.

[Dvoishnik]

Stilet мне кажется так будет вернее

var i,n:integer;
begin
n:=1;
for i:=0 to 13 do begin
 writeln(n:5);
 n:=n*2; 
end; readln;
end.

а то нулевую пропустили

[Aleksandr H.]

var i:integer;
begin
for i:=0 to 13 do 
 writeln(exp(i*ln(2)):3:0);
end.

[Poma][a]

writeln(exp(i*ln(2)):3:0);

Фи..
Тогда уж сдвиги
Или pow