Встуденческих соревнованиях по волейболу участвовало несколько команд. в конце соревнований осталось m команд, набравших одинаковое количество очков. для определения победителя, было принято решение провести серию одновременных игр между : проигравшие выбывают, победители продолжают играть далее по той же схеме, пока не останутся две команды. при нечётном m — вначале разыгрывается дополнительная игра между двумя . соревнующиеся пары команд во всех играх определяются по жребию. 2 2017–2018 учебный год категория а, очный тур оставшиеся две команды должны провести между собой несколько игр до тех пор, пока одна из них не наберет l очков. какое максимально возможное количество игр k потребуется для определения победителя из m команд? считается, что «ничьих» в играх нет. формат выходных данных вывести число k.

ответ:

program scheme;

var xn,xk,dx,x,s,p,k,y: extended;

label rep;

begin

write('enter xn: ');

readln(xn);

write('enter xk: ');

readln(xk);

write('enter dx: ');

readln(dx);

s: =0; p: =1; x: =xn; k: =0;

rep:

if x < = xk then

  begin

  y: =exp(sin(x))*cos(x);

  writeln('x = ',x: 0: 3, '   y = ', y: 0: 3);

  if y > = 0 then

  s: =s+y;

  if y < > 0 then

  p: =p*y;

  x: =x+dx;

  goto rep;

  end

else

  begin

  writeln('s = ', s: 0: 3, ' p = ', p: 0: 3, ' k = ', k: 0: 3);

  exit;

  end;

end.

объяснение: если есть вопросы, пишите в лс.

ответ:

program youname;

var i,n: integer;

s: array[0..75] of integer; // объявление массива

begin

write('введите количество элементов массива: ');

readln(n); // ввод кол-ва элементов массива

writeln('----------------------------------------');

writeln('исходный массив: ');

for i: =1 to n do // перебор от первого до n элементов массива

  begin

  // если используете паскаль abc, то можно написать так: s[i]: =random(-100,100);

  s[i]: =random(100-(-100)+1)+(-100); // заполнение элементов массива от -100 до 100.

  write(s[i], '(', i, ')',' '); // вывод элемента массива с его порядковым номером

  end;

writeln;

writeln('----------------------------------------');

writeln('видоизмененный массив: ');

for i: =1 to n do // перебор от первого до n элементов массива

  begin

  if (i mod 2 = 0) and (s[i] mod 2 = 0) then // если элемент и значение массива четное, то..

    begin

    s[i]: =s[i]*(-1); // смена знака на противоположный

    write(s[i], '(', i, ')',' '); // вывод элемента массива с его порядковым номером

    end;

  end;

writeln;

writeln('----------------------------------------');

end.

объяснение: если есть вопросы, то пишите мне в лс.