В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
curlyprettygirl
curlyprettygirl
01.07.2021 18:54 •  Информатика

Решите есть белые, синие и красные шарики.известно, что белых шариков ровно а штук, синих ровно b и красных ровно с.каждую секунду последовательно выполняются ровно три операции: 1. пока количество белых шариков больше либо равно х, х белых шариков превращаются в один синий; 2. пока количество синих шариков больше либо равно y, y синих шариков превращаются в один красный; 3. пока количество красных шариков больше либо равно z, z красных шариков превращаются в один белый; в какой-то момент больше нельзя выполнить ни одного действия и процесс прекращается.вам нужно сказать сколько шариков каждого цвета будет после выполнения последнего возможного действия.формат вводав одной строке вводятся 6 целых неотрицательных чисел a, b, c, x, y, z (1 < = a, b, c, x, y, z < = 109). гарантируется, что x + y + z > = 4 и когда-нибудь процесс остановится.формат выводав одной строке выведите 3 числа — а, b, c после выполнения последней операции.примерввод2 4 5 2 3 2вывод1 0 1

Показать ответ
Ответ:
умар53
умар53
11.06.2020 21:19

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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота