SaveText.Ru

Без имени
  1. var a:array [1..30] of integer ;
  2. i,x,n:integer;
  3. begin
  4. x:=1 ;
  5. write('Введите степень 2 (n<=30): ');
  6. readln (n);
  7. for i:= 1 to n do
  8. begin
  9. a[i]:= x*2;
  10. write(a[i],'  ');
  11. x:=x*2
  12. end
  13. end.

Share with your friends:

Print