каждое число в последовательности увеличивается на 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
zorinka777
14.04.2022
Пусть 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; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама
lorsam36
14.04.2022
Везде, начиная с того что даже 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу которая вводит с клавиатуры натуральное число 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