發表新討論
#9156:


yysyc (愚一宋奕辰)

學校 : 上海市娄山中学
編號 : 40529
來源 : [180.154.227.17]
最後登入時間 ：
2016-02-27 09:37:03
d068. 該減肥了！ -- 板橋高中教學題 | From: [58.34.91.200] | 發表日期 : 2014-09-05 20:41
var
  a:longint;
begin
  readln(a);
  writeln(a-1);
end. 
#9346: Re:为何错


yyjzy (愚一金之尧)

學校 : 上海市娄山中学
編號 : 40565
來源 : [112.65.201.63]
最後登入時間 ：
2015-12-30 14:00:53
d068. 該減肥了！ -- 板橋高中教學題 | From: [222.66.36.249] | 發表日期 : 2014-10-22 13:57
var
  a:longint;
beginvar w:longint;
begin
  while not eof do begin
    readln(w);
    if w<=50 then writeln(w)
            else writeln(w-1)
  end;
end.

  readln(a);
  writeln(a-1);
end. 
ZeroJudge Forum