dev-pascal

网友 1

最佳答案

回答者:网友
请去掉注释,并重试

*********************************啊川密元部深************

program Noname0;
uses dos,crt;{需要包含dos单元}
var h,min,s,ms,y,m,d,td:word;

begin
gettime(h,min,s,ms);{得到现在的系统时间,时,分,秒,毫秒}
getdate(y,m,d,td);{得到日期,年,月,日,星期几}
writeln(y,'-',m,'-',d);{输出系统日期}
writeln(h,':',min,':',s,'.',ms);{输出系统时间}
readkey();{等待按键}
end.

我来回答