На столе стоят три вазы с конфетами.в левой вазе лежат a конфет,в средней вообще лежат b конфет,в правой вазе лежат c конфет.лена съедает одну

Question

Информатика: На столе стоят три вазы с конфетами.в левой вазе лежат a конфет,в средней вообще лежат b конфет,в правой вазе лежат c конфет.лена съедает одну конфету из левой вазы,затем-одну конфету из средней вазы,затем из правой,средней вазы,затем из правой,средней,левой,средней,правой,средней и т.д. если лена хочет взять конфету из какой-то вазы ,а конфет там нет,она расстраивается и идёт спать.определите,сколько конфет съест лена программа получает на вход три целых неотрицательных числа a,b,c-количество конфет

konon707 · Answer

Var a,b,c,n:integer; f:boolean;beginreadln(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 37...

Популярные вопросы