Придумайте рекуррентное соотношение, задающее последовательностей следующего вида: 2,4,8,16,...

program gt; var n,q,i:longint; begin read(n); read(q); {q-начальное значение числа а в твоем примере q=2} {n-в общем случае;  n- количество последовательностей} write(q,' '); for i:=2  to n do begin q:=q*2; write(q,' '); end; end. А если придумать то так как каждое число равно привидушему числу умноженному на 2 то просто возмем любое число и будем умножат ее на 2 пример: 2 4 6 8 ... 3 6 12 24.. 4 8 16 32 ...