Напишите программу которая вводит с клавиатуры натуральное число n и выводит на экран n первых элементов последовательности: 1, 3, 7, 15, 31, 63, (4 )

каждое число в последовательности увеличивается на 2 в степени i - 1

где i это порядковый номер числа в последовательности

program raf105;

var

  x,n,i: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

    x: = x + round(power(2,i-1));

    write(x,' ');

  end;

end.

pascalabc

Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама

Везде, начиная с того что даже f написана не верно вот рабочий код. формулы брались на вики, потому что в ваших я сомневаюсь весьма function f(x: real): real; begin       f : = sqr(sqr(x)) * x + 3 * sin(x) - 3 * sqr(x) - 12; end; function findroot(a, b, epsilon: real): real; begin       while(abs(b - a) > epsilon) do       begin               a : = b - (b - a) * f(b) / (f(b) - f(a));               b : = a + (a - b) * f(a) / (f(a) - f(b));               writeln(a, ' ', b);       end;             findroot : = b; end; begin       writeln('x = ', findroot(0.5, 1.5, 0.001)); end.