Turbo Pascal 的问题：键盘输入年月日，输出是从公元1年1月1日开始的第几天？（只用case和if语句）

Turbo Pascal 的问题：键盘输入年月日，输出是从公元1年1月1日开始的第几天？（只用case和if语句）

Program days;
Var yy,mm,dd,i:integer;
S:longint;
Begin
s:=0;
Read(yy,mm,dd);
For i:=1 to yy-1 do
if (i mod 4=0) and (i mod 100<>0) or (i mod 400=0)

then s:=s+366 else s:=s+365;
for i:=1 to mm-1 do
case I of
1,3,5,7,8,10,12:s:=s+31;
4,6,9,11:s:=s+30;
2: if (yy mod 4=0) and (yy mod 100<>0) or (yy mod

400=0) then s:=s+29 else s:=s+28;
End;
S:=s+dd;
write(s);
End.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息