發表新討論
#2139: 关于cin cont……


helenholmes (允诺永在)

學校 : 河北省衡水中学
編號 : 7131
來源 : [121.17.46.140]
最後登入時間 ：
2010-10-05 18:01:02
a004. 文文的求婚 | From: [121.17.46.140] | 發表日期 : 2009-07-06 14:22

话说我是刚刚在这里混的新手……我是学pascal的 很想知道cin和cont与read write语句有什么区别？

 

而且为啥我总是OLE呢？是不是读入的时候有问题？

 

 
#2140: Re:关于cin cont……


helenholmes (允诺永在)

學校 : 河北省衡水中学
編號 : 7131
來源 : [121.17.46.140]
最後登入時間 ：
2010-10-05 18:01:02
a004. 文文的求婚 | From: [121.17.46.140] | 發表日期 : 2009-07-06 14:28
var year:longint;
begin
  while not eof do
    begin
      read(year);
      if ((year mod 4)=0) and ((year mod 100)<>0) or ((year mod 400)=0)
        then writeln('閏年')
        else writeln('平年');
     end;
end.
这是我的程序 大牛帮帮忙……
 
ZeroJudge Forum