Question

pascal编程

题目描述
给定一个具体的日期，请输出，这一天是当年的第几天？

输入
输入一行，为年-月-日，

输出
输出一行，只有一个整数，表示这一天为那一年的第多少天

样例输入 [复制]
2000-1-31
样例输出 [复制]
31
提示[+]
*** 提示已隐藏，点击上方 [+] 可显示 ***
来源

Answer 1

#include <stdio.h>
int main()
{int i,y,m,d,n;
 int a[13]={0,31,28,31,30,31,30,31,31,30,31,30,31};
 printf("Please enter year, month, day:");
 scanf("%d%d%d",&y,&m,&d);
 a[2]=28+(y%4==0&&y%100||y%400==0);
 for(n=d,i=1;i<m;i++)n+=a[i];
 printf("%d-%d-%d is the %dth day of the year.\n",y,m,d,n);
 return 0; 
}

追问

用pascal语言

追答

var i,y,m,d,n:integer;
    a:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
begin
  write('Please enter year month day:');
  readln(y,m,d);
  n:=d;
  a[2]:=28+ord((y mod 4=0)and(y mod 100>0)or(y mod 400=0));
  for i:=1 to m-1 do inc(n,a[i]);
  writeln(y,'-',m,'-',d,' is the ',n,'th day of the year.');
end.