F=(x& неy)vz составить таблицу истинности

думается, что v - это исключающее или

тогда таблица будет такой :

 

x y z f

0 0 0 0

0 0 1 1

0 1 0 0

0 1 1 1

1 0 0 1

1 0 1 0

1 1 0 0

1 1 1 1

 

0 - ложь, 1 - истина

0| 0 0 01| 0 0 10| 0 1 01| 0 1 11| 1 0 01| 1 0 10| 1 1 01| 1 1 1

1) var s: string; i: integer; begin readln(s); for i: =1 to length(s) do   if (i mod 2=1)and(s[i]='н') then writeln(i,' - н'); end. пример: дано предложение. вывести "столбиком" все его буквы н, стоящие на нечетных местах 3 - н 53 - н 67 - н 2) var s,s1,s2: string; begin s: ='вертикаль'; s1: =s[4]+s[5]+s[3]; s2: =s[1]+s[2]+s[4]+s[6]+s[7]; writeln(s1,' ',s2); end. результат: тир ветка 3. замечание. предполагается, что слова в предложениях отделяются друг от друга одним пробелом. 3 а) var s: string; i,k: integer; begin readln(s); k: =0; for i: =1 to length(s) do   begin   if (s[i]='а')and(k=0) then   begin s[i]: ='о'; k: =1; end;   if s[i]=' ' then k: =0;   end; writeln(s); end. пример: напечатать все его слова, предварительно преобразовав каждое из них по правилу нопечатать все его слово, предворительно преоброзовав кождое из них по провилу 3 б) var s,sl,s_new: string; i: integer; begin readln(s); s: =s+' '; s_new: =''; sl: =''; for i: =1 to length(s) do   if s[i]< > ' ' then sl: =sl+s[i]   else begin   while pos(s[i-1],sl)> 0 do delete(sl,pos(s[i-1],sl),1);   s_new: =s_new+sl+s[i-1]+' ';   sl: ='';   end; writeln(s_new); end. пример: нечетное предложение больше четного нчтное прдложние больше четнго 

С  матрицы - значит, методом крамера. delta  =  a11*a22 - a12*a21; deltax  =  b1*a22 - b2*a12; deltay  =  a11*b2 - a21*b1; if ((delta  =  0) and (deltax  =  0) and (deltay = 0)) then write "решений  бесконечно  много"; if ((delta = 0) and ((deltax < > 0) or (deltay < > 0)) then write "решений  нет"; if  (delta < > 0) then begin x  =  deltax / delta; y  =  deltay  / delta; end;