Жили-были Компьютер, Мышка и Клавиатура. Они были брат и две сестры, монитор был злюкой : 3. Монитор ни в чем не уступал Компьютеру, мышке и клавиатуре. Однажды произошло соревнование, которое составил Господин Интернет ,, Арифметические действия над числами". ,,Первое задание!" - торжественно начал произносить Интернет, "Вам надо решить следующий пример". Пример был таков: 9.015 - 118 × 34 + 48. 633 : 39 = ? Все начали напряженно решать этот пример. Компьютер, Мышка и Клавиатура работали вместе - на Компьютере было видно, что они пишут, с Клавиатуры и ее букв они пишут пример и действия, а Мышка следила за правильностью цифр в примере, и решать пример. А наш злой Монитор ни с кем не решал этот пример, он надеялся только на себя. Вот наши Компьютер Мышка и Клавиатура решают последнее действие, а Монитор и первое не решил! И вот наша компьютерная семейка решила этот пример. Все видели как Монитор еще думал над первым действием. Но так как время было уже растрачено, Монитору пришлось сдать решение. Мистер Калькулятор начал проверять работы, он посмотрел работу Монитора ,,Ужасно! В жизни не видел такого!"-воскликнул Калькулятор. Монитор тяжело вздохнул, ему было очень грустно. Компьютер, Мышка и Клавиатура победили, но отдали приз Монитору и сказали ,,Забирай приз, он нам все равно не нужен. Ведь самый ценный приз - это дружба!"
Var d,m,i,all:integer; begin read(d,m); all:=0; for i:=12 downto (m+1) do begin if i=12 then all:=all+31; if i=11 then all:=all+30; if i=10 then all:=all+31; if i=9 then all:=all+30; if i=8 then all:=all+31; if i=7 then all:=all+31; if i=6 then all:=all+30; if i=5 then all:=all+31; if i=4 then all:=all+30; if i=3 then all:=all+31; if i=2 then all:=all+28; if i=1 then all:=all+31; end; if i=12 then all:=all+31-d; if i=11 then all:=all+30-d; if i=10 then all:=all+31-d; if i=9 then all:=all+30-d; if i=8 then all:=all+31-d; if i=7 then all:=all+31-d; if i=6 then all:=all+30-d; if i=5 then all:=all+31-d; if i=4 then all:=all+30-d; if i=3 then all:=all+31-d; if i=2 then all:=all+28-d; if i=1 then all:=all+31-d; writeln(all); end.
2. В какой кодировке? в ASC 500
3. 8192
4. 360 бит