var
k,i,a:Integer;
begin
a:=1;
readln(k);
for i:=1 to k do begin
write(a,' ');
a:=a+a+1;
end;
end.
Это паскаль
Каждое число в последовательности увеличивается на 2 в степени i - 1
где i это порядковый номер числа в последовательности
program raf105;
x,n,i: integer;
readln(n);
for i:=1 to n do
x:= x + round(power(2,i-1));
write(x,' ');
x,y:integer;
z:real;
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение y: ');
readln(y);
z:=x+y/x+16-y*x-24/17+x;
writeln('z = ',z);