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 ...
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 ...