16 задание с операторами while или repeat

Question

16 задание с операторами while или repeat

---

Answer 1

var x,i:integer;

begin

 writeln('2 ^ 0= 1');

 x:=2;

 for i:=1 to 10 do

   begin

      writeln('2^', i:2, ' = ', x);

      x:=x*2;

   end;

end.

Лучше так