آيا مي شود در پاسكال سات را به نمايش گذاشت
Printable View
آيا مي شود در پاسكال سات را به نمايش گذاشت
salim_a جان شما از كد زير استفاده كن:
کد:uses Crt,dos;
var h,m,s,hund:word;
begin
repeat
gettime(h,m,s,hund);
clrscr;
write(h,':',m,':',s);
until keypressed;
end.