Придумайте рекуррентное соотношение, задающее последовательностей следующего вида: 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 ...