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


lamkaihou (ku_Lam)

學校 : 澳門濠江中學
編號 : 39003
來源 : [60.246.178.97]
最後登入時間 ：
2017-08-19 17:51:49
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)

學校 : 澳門濠江中學
編號 : 39003
來源 : [60.246.178.97]
最後登入時間 ：
2017-08-19 17:51:49
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 (华二李陆阳)

學校 : 上海市娄山中学
編號 : 50365
來源 : [218.78.247.240]
最後登入時間 ：
2018-12-01 14:53:13
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