Примеры систем в которых отдельный человек, группа людей , техническое устройство , животное могут быть: 1)объектом 2) объектом

2) объектом

73 и 74

Объяснение:

Предположим, что во второй кучке 73 камня (так как если S=<72, то мы получим выигрыш Пети, так как он может уменьшить количество камней во 2 кучке вполовину и выиграть).

Если Петя:

1. Уберёт из 2 кучки половину камней, то Ваня уберёт из 2 кучки 1 камень и уменьшит количество камней во 2 кучке до 36 и выиграет.

2. Уберёт из 2 кучки 1 камень, то Вася уменьшит количество камней во 2 кучке до 36 и так же выиграет.

3. Уберёт из 1 кучки 1 камень, то Вася тоже уберёт из 1 кучки 1 камень, и затем будет повторять ходы Пети, и Пете придётся начать взаимодействовать со 2 кучкой, и проделать с ней 1 или 2 вариант хода.

4. Уберёт из 1 кучки половину камней, Вася должен повторять за ним, пока Петя не начнёт взаимодействие со 2 кучкой и действовать аналогично

НО(относится к 3 и 4 случаям) Вася должен избегать случаев, где в его ходу были бы нечётное количество камней:

например изначально - (12, 73), Петя - (6, 73) и тут Вася должен сделать ход (5, 73), Петя - (4, 73), Вася - (2, 73), Петя - (1, 73), Вася - (0, 73) или

изначально - (12, 73), Петя - (11, 73) и тут Вася должен сделать ход (6, 73), Петя - (3, 73), Вася - (2, 73), Петя - (1, 73), Вася - (0, 73), и получается ответ 73, но если есть нечётное число 73, то есть и четное - 74.

S = 73 или 74

1.

const N = 10;

var a: array [1..N] of integer;

i, x: integer;

begin

   write('Введите x: ');

   readln(x);

   for i := 1 to N do

   begin

       a[i] := x + i - 1;

       write(a[i], ' ');

   end;

end.

2.

const N = 10;

var a: array [1..N] of integer;

i: integer;

begin

   a[1] := 1;

   a[2] := 1;

   for i := 3 to N do

   begin

       a[i] := a[i-1] + a[i-2];

   end;

   for i := 1 to N do

   begin

       write(a[i], ' ');

   end;

end.

3.

const N = 6;

var a: array [1..N] of integer;

i, x: integer;

begin

   a[N] := 1;

   for i := N-1 downto 1 do

   begin

       a[i] := 2 * a[i+1];

   end;

   

   for i := 1 to N do

   begin

       write(a[i], ' ');

   end;

end.