Дано два целых числа. Если они имеют разую четность, заменить нечетное число ближайшим большим четным, иначе заменить меньшее из них половиной их суммы.

1

Ответы и объяснения

2013-09-21T11:03:44+04:00
If (odd(a) <> odd(b)) then
begin
if (odd(a)) then a := a+1 else b := b+1;
end
else
begin
if (a < b) then a := (a+b) div 2 else b := (a+b) div 2;
end;