Составь таблицу истинности. Прежде чем ее составить: во первых нужно знать нумерацию, во вторых что такое коньюкция, дизъюнкция, инверсия и тд (и их табл истинности) тогда ты сможешь это все применять в таблице.
Объяснение:
У тебя идут колонки: A,B,C,потом A(инверсия) и B(инверсия).
Для 3 колонок 1 и 0:
A B C A(инв) B(инв) (В(инв) диз С) (А(инв)коньюк((В(инв) диз С))
0 0 0
0 0 1
0 1 0
0 1 1
1 0 0
1 0 1
1 1 0
1 1 1
(В инверсии меняешь ед на нули, нули на ед, коньюкция - умножение, дизъюнкция - сложение)
program prazdnik;
var a : integer ;
begin
readln(a);
if a=1 then writeln ('пишите сюда праздиники в первый месяц,какие нужны');
if a=2 then writeln ('сюда то чт ово второй ');
if a=3 then writeln (' третий ') ;
if a=4 then writeln (' четвертый месяц с его праздниками');
if a=5 then writeln (' пятый месяц');
if a=6 then writeln (' шестой месяц');
if a=7 then writeln (' седьмой месяц');
if a=8 then writeln (' восьмой');
if a=9 then writeln (' праздники ');
if a=10 then writeln ('празники ');
if a=11 then writeln (' праздники 11 месяца');
if a=12 then writeln ('двенадцатый');
end.