program raf105;
var
white,blue,red,x,y,z: integer;
w,b,r: boolean;
begin
writeln('Ввод:');
readln(white, blue, red, x, y, z);
repeat
w:= false;
b:= false;
r:= false;
if white >= x
then begin
white-= x;
blue+= 1;
end
else w:= true;
if blue >= y
then begin
blue-= y;
red+= 1;
end
else b:= true;
if red >= z
then begin
red-= z;
white+= 1;
end
else r:= true;
until w and b and r;
writeln('Вывод:');
writeln(white,' ', blue,' ', red);
end.
PascalABC 3.4.2
Проще всего решать такие задачи, приведя всё к одной системе, проще всего 16ричной(легче переводить), хотя можно и в10ричную, но сложней.
Итак
a = 91h
b = 352(8) = 011 101 010b = 1110 1010b =EAh
ч1 = 1000 1001b = 89h
ч2 = 1000 1100b = 8Ch
ч3 = 1101 0111b = D7h
ч4 = 1111 1000b = F8h
Ну и всё, теперь ясно видно, что заданному условию удовлетворяет только ч3.
Потому, что
если расположить все числа в поряде возрастания, то получим
89h 8Ch 91h D7h EAh F8h
ч1 ч2 а ч3 b ч4
Вот теперь очевидно.
a, b, c: integer;
begin
{ Первый
a := 20; b := 13;
c := a;
a := b;
b := c;
Writeln('a=', a, ', b=', b);
{ Второй
a := 20; b := 13;
a := a + b;
b := a - b;
a := a - b;
Writeln('a=', a, ', b=', b);
end.
Тестовое решение:
a=13, b=20
a=13, b=20