Advertisement
Guest User

8.Дни до НГ

a guest
Jan 21st, 2019
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. program Daysinyear;
  2. const Days = 365;
  3. var
  4. month,day,tNY,i:integer;
  5. begin
  6. for i:= 1 to 20 do
  7. begin
  8. readln(day,month);
  9. case month of
  10. 1: tNY:= Days - day;
  11. 2: tNY:= Days - 31 - day;
  12. 3: tNY:= Days - 59 - day;
  13. 4: tNY:= Days - 90 - day;
  14. 5: tNY:= Days - 120 - day;
  15. 6: tNY:= Days - 151 - day;
  16. 7: tNY:= Days - 181 - day;
  17. 8: tNY:= Days - 212 - day;
  18. 9: tNY:= Days - 243 - day;
  19. 10: tNY:= Days - 273 - day;
  20. 11: tNY:= Days - 304 - day;
  21. 12: tNY:= 31 - day;
  22. end;
  23. writeln(tNY);
  24. end;
  25. readln();
  26. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement