#2139: 关于cin cont……


helenholmes (允诺永在)


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

 

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

 

#2140: Re:关于cin cont……


helenholmes (允诺永在)


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.
这是我的程序 大牛帮帮忙……