1.如何用pascal编写一个万年历啊?希望大家帮个忙,易语言万源码易语言日急用啊!年历qq名片刷赞软件源码
如何用pascal编写一个万年历啊?希望大家帮个忙,易语言万源码易语言日语音开发app源码急用啊!年历英雄联盟源码下载
PROGRAM n;
TYPE
a=1..;
b=1..;
c=..;
VAR
year:a;
month:b;
day:c;
days,易语言万源码易语言日snmp开发vb源码num:integer;
BEGIN
writeln('please input year month day');
read(year,month,day);
IF month=1
THEN days:day
ELSE IF month=2
THEN days:=+day
ELSE BEGIN
CASE month OF
3 :num:=1;
4,5 :num:=2;
6,7 :num:=3;
8 :num:=4;
9, :num:=5;
,:num:=6;
END;
IF ((year MOD 4=0) AND (year MOD <>0)) OR (year MOD =0)
THEN days:=*(month-1)+num+day-1
ELSE days:=*(month-1)+num+day-2
END;
writeln(days,year,month,day);
END.
月費近4千元!美國高級「狗狗俱樂部」 還附設餐廳酒吧
有什么猜大小的源码_有什么猜大小的源码软件
张晓青选股源码_张晓青股票视频
蔬菜配送小程序源码下载_蔬菜配送小程序源码下载官网
月費近4千元!美國高級「狗狗俱樂部」 還附設餐廳酒吧
分享资源赚钱的网站源码_资源网站怎么赚钱