Решите есть белые, синие и красные шарики.известно, - вопрос №1473754 от анастасия1520 14.01.2020 00:58

Question

Информатика: Решите есть белые, синие и красные шарики.известно, что белых шариков ровно а штук, синих ровно b и красных ровно с.каждую секунду последовательно выполняются ровно три операции: 1. пока количество белых шариков больше либо равно х, х белых шариков превращаются в один синий; 2. пока количество синих шариков больше либо равно y, y синих шариков превращаются в один красный; 3. пока количество красных шариков больше либо равно z, z красных шариков превращаются в один белый; в какой-то момент больше

анастасия1520 · Answer

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