У абитуриентов этого года есть уникальная возможность, дважды попытаться поступить на Факультет Информационных Технологий без экзаменов. Для этого достаточно показать хорошие результаты на одной из следующих олимпиад. Лидеры олимпиад будут приглашены не только на Математический и Физический факультеты, но и на Факультет Информационных Технологий.
22 апреля 2006 года состоится олимпиада по математике для желающих поступить на Физический факультет на льготных условиях. Телефон для вопросов
91-61-31
29 апреля 2006 года состоится олимпиада по математике для желающих поступить на Математический факультет на льготных условиях. Телефон для вопросов 91-60-86
Разбор задачи уровня 1
Один из вариантов решения таков. Задача первого уровня решается с помощью таблицы истинности для формулы. Таблицу истинности можно понимать как формулу f(A,B,C). А формулу можно записать просто массивом. Это и сделано в примере решения.
program Level1; const TabRes :array['0'..'1','0'..'1','0'..'1'] of byte = ({A=0} ({B=0}({C=0}0,{C=1}1), {B=1}({C=0}0,{C=1}1)), {A=1} ({B=0}({C=0}0,{C=1}1), {B=1}({C=0}1,{C=1}1)) );
var A, B, C : string; i : byte; begin readln(A); readln(B); readln(C); for i:=1 to length(A) do write(TabRes[A[i],B[i],C[i]]); writeln; end.
Кстати, ни один из участников
таким способом задачу не решал.