На столе стоят три вазы с конфетами. В левой вазе лежат A конфет, в средней вообще лежат B конфет, в правой вазе лежат C конфет. Лена съедает одну конфету из левой вазы, затем-одну конфету из средней вазы, затем из правой, средней вазы, затем из правой, средней, левой, средней, правой, средней и т. д.

Если Лена хочет взять конфету из какой-то вазы, а конфет там нет, она расстраивается и идёт спать. Определите, сколько конфет съест Лена

Программа получает на вход три целых неотрицательных числа A, B, C-количество конфет в левой, средней, правой ВАЗе.

Question

Информатика

Изот

25 декабря, 22:05

На столе стоят три вазы с конфетами. В левой вазе лежат A конфет, в средней вообще лежат B конфет, в правой вазе лежат C конфет. Лена съедает одну конфету из левой вазы, затем-одну конфету из средней вазы, затем из правой, средней вазы, затем из правой, средней, левой, средней, правой, средней и т. д.

Если Лена хочет взять конфету из какой-то вазы, а конфет там нет, она расстраивается и идёт спать. Определите, сколько конфет съест Лена

Программа получает на вход три целых неотрицательных числа A, B, C-количество конфет в левой, средней, правой ВАЗе.

+2

Ответы (1)

Знаете ответ на вопрос?

Слава · Answer 1

Var a, b, c, n:integer; f:boolean;

begin

readln (a, b, c) ;

f:=true; n:=0;

while f do

begin

if f and (a>0)

then begin a:=a-1; n:=n+1; end else f:=false;

if f and (b>0)

then begin b:=b-1; n:=n+1; end else f:=false;

if f and (c>0)

then begin c:=c-1; n:=n+1; end else f:=false;

if f and (b>0)

then begin b:=b-1; n:=n+1; end else f:=false;

end;

writeln (n) ;

end.

Пример:

3 3 3

7