Слово «информатика» образовано из двух французских слов: information (информация) и automatique (автоматика). Первоначально в научный обиход оно вошло во Франции в 60-е годы для обозначения автоматической переработки информации в широкой области научной и производственной деятельности человека. Французская энциклопедия Ларусса поэтому и определяет информатику как «совокупность дисциплин и «техник автоматической и рациональной обработке информации».
Постепенно новый термин стал распространяться все шире и шире. у нас вначале им обозначали лишь технологические операции с научно-технической информацией, документалистику, библиотечное дело, хранение и обработку материалов научных исследований. И если мы заглянем в совсем еще не старые монографии и учебники по информатике, то увидим, ч го они посвящены весьма узкому кругу вопросов.
Но лавинообразное наступление информации на современного человека, быстрый рост ее потребления, хранения, насущная необходимость в ее переработке, преобразовании - все это заставило по-иному взглянуть на суть вопроса и переосмыслить само понятие «информатика». Стало ясно, что информатика обладает необыкновенной разносторонностью проникать во все отрасли, в многообразные сферы научной и общественной жизни, в деятельность каждого человека.
Информатика получила статус новой отрасли науки и заняла особое - свое - место в ряду научных дисциплин. Теперь не вызывает сомнения, что без информатики не может обойтись ни одна область нашей жизни: материальное производство и экономика, планирование и управление, образование, медицина и здравоохранение, сфера сбыта и услуг, охрана окружающей среды и культура.
Информатика вызвана к жизни потребностями общественной практики.
Var A,B,C:integer; Begin C:=365; Read(A,B); if A>1 then C:=C-31; if A=1 then C:=C-B; if A>2 then C:=C-28; if A=2 then C:=C-B; if A>3 then C:=C-31; if A=3 then C:=C-B; if A>4 then C:=C-30; if A=4 then C:=C-B; if A>5 then C:=C-31; if A=5 then C:=C-B; if A>6 then C:=C-30; if A=6 then C:=C-B; if A>7 then C:=C-31; if A=7 then C:=C-B; if A>8 then C:=C-31; if A=8 then C:=C-B; if A>9 then C:=C-30; if A=9 then C:=C-B; if A>10 then C:=C-31; if A=10 then C:=C-B; if A>11 then C:=C-30; if A=11 then C:=C-B; if A>12 then C:=C-31; if A=12 then C:=C-B; Write(C); End.
Слово «информатика» образовано из двух французских слов: information (информация) и automatique (автоматика). Первоначально в научный обиход оно вошло во Франции в 60-е годы для обозначения автоматической переработки информации в широкой области научной и производственной деятельности человека. Французская энциклопедия Ларусса поэтому и определяет информатику как «совокупность дисциплин и «техник автоматической и рациональной обработке информации».
Постепенно новый термин стал распространяться все шире и шире. у нас вначале им обозначали лишь технологические операции с научно-технической информацией, документалистику, библиотечное дело, хранение и обработку материалов научных исследований. И если мы заглянем в совсем еще не старые монографии и учебники по информатике, то увидим, ч го они посвящены весьма узкому кругу вопросов.
Но лавинообразное наступление информации на современного человека, быстрый рост ее потребления, хранения, насущная необходимость в ее переработке, преобразовании - все это заставило по-иному взглянуть на суть вопроса и переосмыслить само понятие «информатика». Стало ясно, что информатика обладает необыкновенной разносторонностью проникать во все отрасли, в многообразные сферы научной и общественной жизни, в деятельность каждого человека.
Информатика получила статус новой отрасли науки и заняла особое - свое - место в ряду научных дисциплин. Теперь не вызывает сомнения, что без информатики не может обойтись ни одна область нашей жизни: материальное производство и экономика, планирование и управление, образование, медицина и здравоохранение, сфера сбыта и услуг, охрана окружающей среды и культура.
Информатика вызвана к жизни потребностями общественной практики.
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.