📄 yyyy.pas
字号:
PROGRAM PR_1(INPUT,OUTPUT);
VAR
ym:REAL;
y,y1,m,d:INTEGER;
BEGIN
READLN(ym);
y:=trunc(ym);
y1:=y mod 100;
m:=trunc(ym *100) mod 100 ;
d:=trunc(ym *1E4) mod 100 ;
Writeln(y:8,y1:4,m:4,d:4);
END .
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -