b186. 97七區資訊學科1(改編) -- 97學年度彰雲嘉區資訊學科能力競賽 | From: [222.66.36.254] | 發表日期 : 2014-08-21 13:48

var a,b,c:longint;

begin

  while not eof do begin

    readln(a,b,c);

    if a div 10>=c div 2 then b:=b+a div 10

                         else b:=b+c div 2;

    writeln(a,' 個餅乾, ',b,' 盒巧克力, ',c,' 個蛋糕。');

  end;

end.