Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Daysinyear;
- const Days = 365;
- var
- month,day,tNY,i:integer;
- begin
- for i:= 1 to 20 do
- begin
- readln(day,month);
- case month of
- 1: tNY:= Days - day;
- 2: tNY:= Days - 31 - day;
- 3: tNY:= Days - 59 - day;
- 4: tNY:= Days - 90 - day;
- 5: tNY:= Days - 120 - day;
- 6: tNY:= Days - 151 - day;
- 7: tNY:= Days - 181 - day;
- 8: tNY:= Days - 212 - day;
- 9: tNY:= Days - 243 - day;
- 10: tNY:= Days - 273 - day;
- 11: tNY:= Days - 304 - day;
- 12: tNY:= 31 - day;
- end;
- writeln(tNY);
- end;
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement