Program Alexandra_1;
uses crt;
const n=5;
var
a:array[1..n] of integer;
i, sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов ',sum);
end.
Program Alexandra_2;
uses crt;
const n=7;
var
a:array[1..n] of integer;
i, num: integer;
begin
num:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1;
end;
writeln('Количество четных положительных элементов ',num);
end.
Program Alexandra_3;
uses crt;
const n=6;
var
a:array[1..n] of integer;
i, tum: integer;
begin
tum:=1;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i]>0 then tum:=tum*a[i];
end;
writeln('Произведение положительных элементов ',tum);
end.
Дерево игры - в прилагаемом файле. У игрока, делающего ход первым (Пети) есть выигрышная стратегия: первый ход должен быть +3 (в куче получится 13 камней). В этом случае при ходе второго игрока (Вани) +3 (в куче 16 камней) первый (Петя) выигрывает ходом *2 (в куче 32 камня); при ходе второго игрока (Вани) *2 (в куче 26 камней) первый (Петя) также выигрывает ходом *2 (в куче 52 камня). Второй игрок (Ваня) может выиграть только в случае, если первый (Петя) сделает начальный ход *2 (в куче 20 камней), следующий ход (Вани) *2 (в куче 40 камней) приводит к выигрышу.
