2 задачки...

[Standen]

Тема закрыта....Закройте

[Stilet]

Требуется написать программу, которая найдет наименьшее количество конфет, оказавшихся в одном из подарков после завершения их раскладывания.

Допустим x - колво в первой коробке, а y во второй. Папуля покупает еще z тогда

if x<y then min:=x+z div 2 else min:=y+z div 2;

Я не прав?

[Standen]

Спасибо за ответ,но детей может быть много....

[Standen]

И ответ получается неверный даже если брать значение лишь двух детей...

[MoBLer]

Стало интересно вот сделал вроде работает 2 задача

function max(a,b:longint):boolean;
begin
if a>b then max:=true else max:=false;
end;

  function a_b(a,b:longint):boolean;
var
i,an,bn:longint;
begin
a_b:=false;
an:=a; bn:=b;
for i:=1 to 8 do
begin
if an=bn then begin a_b:=true end;
if max(an,bn) then
begin
an:=an-bn; bn:=bn+bn;
end else
begin
bn:=bn-an; an:=an+an;
end;
if (an=bn) then begin a_b:=true; break end;
if ((an=a) and (bn=b)) or ((an=b) and (bn=a)) then begin a_b:=false; break; end;
end;
end;

 var
 a,b,k,i:longint;
begin
readln(k);
for i:=1 to k do
begin
readln(a,b);
if a_b(a,b) then writeln('Yes') else writeln('No');
end;
readln
end.

[Standen]

Спасибо...Щас на сервак отправлю а потом тебе скажу...

[Standen]

Пишет: пройдено тестов 1...

[MoBLer]

какой сайт не acm.times.ru

[Standen]

informatisc.mccme.ru/moodle

[Standen]

Может попробуешь переделать?