Разобраться с по информатике 10 класса, по теме "логика". буду вам безмерно , если вы мне именно с таблицей истинности, потому что само решение я понимаю, как делать, но не могу понять, как составить таблицу истинности по этой . : ) - "в процессе составления расписания уроков, учителя высказали свои пожелания. учитель хочет иметь 1-й или 2-й урок, учитель информатики – 1-й или 3-й, а учитель – 2-й или 3-й. сколько существует возможных вариантов расписания и каковы они? "

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   var a0: =a[0];   var b: =a[1: ].where(x-> x mod a0=0).toarray;   if b.length> 0 then b.println   else writeln('нет элементов, кратных первому'); end. пример n= 16 -11 85 11 -9 -24 32 6 42 -92 -69 -87 2 -11 -77 -94 66 11 -11 -77 66 замечание. если первый элемент тоже нужно включить в результирующий массив, нужно записать так: var b: =where(x-> x mod a0=0).toarray;

Var     s: string;     i,k: integer; begin k: =0; write('введите строку: '); readln(s); for i: = 1 to length(s)-2 do       if s[i]='d' then             if s[i+1]='o' then                   if s[i+2]='g' then                         begin                         s[i]: ='c';                         s[i+1]: ='a';                         s[i+2]: ='t';                         end; writeln('новая строка: ',s); end.