發表新討論
#8681: 新手求助~pascal


lamkaihou (ku_Lam)

b186. 97七區資訊學科1(改編) -- 97學年度 彰雲嘉區 資訊學科能力競賽 | From: [60.246.193.226] | 發表日期: 2014-03-06 20:10
var a,b,c:integer;
begin
  readln(a,b,c);
  if (a>=10) and (c>=2) then b:=b+1
                        else b:=b;
  writeln(a,' 個餅乾，',b,' 盒巧克力，',c,' 個蛋糕。');
end.
#8683: Re:新手求助~pascal


lamkaihou (ku_Lam)

b186. 97七區資訊學科1(改編) -- 97學年度 彰雲嘉區 資訊學科能力競賽 | From: [60.246.193.226] | 發表日期: 2014-03-06 20:14
var a,b,c:integer;
begin
  readln(a,b,c);
  if (a>=10) and (c>=2) then b:=b+1
                        else b:=b;
  writeln(a,' 個餅乾，',b,' 盒巧克力，',c,' 個蛋糕。');
end.

哪里錯了
#10669: Re:新手求助~pascal


helly (华二李陆阳)

b186. 97七區資訊學科1(改編) -- 97學年度 彰雲嘉區 資訊學科能力競賽 | From: [101.229.173.67] | 發表日期: 2016-01-30 12:22
var a,b,c:integer;
begin
  readln(a,b,c);
  if (a>=10) and (c>=2) then b:=b+1
                        else b:=b;
  writeln(a,' 個餅乾，',b,' 盒巧克力，',c,' 個蛋糕。');
end.

哪里錯了

你还要考虑a里面有几个10，c里面有几个2，不一定只有一个10和一个2.


ZeroJudge Forum