47) Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Иг-роки - id2046789120200123 от Сливенко 23.01.2020 08:23

Question

Информатика: 47) Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Иг-роки ходят по очереди, первый ход делает Петя. За один ход игрок может а) добавить в одну из куч (по своему выбору) два камня или б) увеличить количество камней в куче в два раза. Победителем считается игрок, сделавший последний ход, т.е. первым получивший такую пози-цию, что в обеих кучах всего будет 75 камней или больше. Задание 1. Для каждой из начальных позиций (10, 32), (11, 31) укажите, кто из игроков

Сливенко · Accepted Answer

Var
A:array[1..4] of integer;
i,j,R,P:integer;
function HOD(c,b:integer):integer;
begin
while c<>b do
if c>b
   then
   c:=c-b
else
b:=b-c;
HOD:=c;
end;
function HOK(c,b, RR:integer):integer;
begin
if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
then
   begin
if c>b
   then
   HoK:=c
else
HOK:=b;
end
else
HOK:=(c*b) div RR;
end;
begin
A[1]:=36;
A[2]:=54;
A[3]:=18;
A[4]:=15;
P:=1;
R:=HOD(A[1],A[2]);
P:=HOK(A[1], A[2], R);
for i:=3 to 4 do
begin
R:=HOD(R, A[i]);
P:=HOK(P, A[i],R);
end; writeln('HOK = ',P);
end.

MOGZ ответил