Добавлено (2009-05-25, 6:12 Pm)
---------------------------------------------
C1 - добавить условие, когда х=0
С2:
const N=30;

var a: array [1..N] of integer;
p, i, chmax, nechmax: integer;

begin

For i:=1 to n do
begin
If a[i] mod 2=0 then
If a[i]>chmax then chmax:=a[i]
If a[i] mod 2<>0 then
If a[i]>nechmax then nechmax:=a[i]
end;
If chmax>nechmax then p:=chmax-nechmax
else p:=nechmax-chmax

write(p);
end.

(написал сквозь одно место, но вроде ок)

С3:
Выигрывает 1ый, если он сделает ход 4,3 (удвоит в первой куче), а потом будет дополнять до 7,6:
у второго будут варианты:
8,3 - первый увеличивает вдвое и выигрывает
7,3 - дополняет до 7,6
4,6 -=-
4,6 -=-

Т.о. Второй сможет получить максимум 14,6, минимум 7,9. Первому для победы этого за глаза.

С4 у меня косое, предлагайте

Сокращаем до:
C<45 v C<18
C>=44

C<18 = 0 ибо C>=44 = 1
Так что C<45 = 1 и С>=44 =1
Ответ 44.

Vincent91, а, мало того что описывать не надо - убрать ее чтение) А если С=0, то х=0 же

Добавлено (2009-05-25, 7:25 Pm)
---------------------------------------------
и В2?