Логическое выражение не(xvyv не(x^y))^не(yvx)

чтобы вам , вложите фотографию . так трудно понять ваше

1. 32

a = 26

b = 6

b = a / b + b = 26 / 6 + 6 = (4*6+2) / 6 + 6 = 4 + 6 = 10

c = a % b + a = 26 % 10 + 26 = (2 * 10 + 6) % 10 + 26 = 6 + 26 = 32

2. 9

a = 24

b = 5

c = a % b + b = 24 % 5 + 5 = (4 * 5 + 4) % 5 + 5 = 4 + 5 = 9

3. 32

a = 28

b = 7

c = a / b + a = 28 / 7 + 28 = 4 + 28 = 32

4. 6

a = 24

b = 5

b = a / b = 24 / 5 = (4 * 5 + 4) / 5 = 4

c = a / b = 24 / 4 = 6

5. 5

a = 22

b = 4

b = a % b + 4 = 22 % 4 + 4 = (5 * 4 + 2) % 4 + 4 = 2 + 4 = 6

C = a % b + 1 = 22 % 6 + 1 = (3 * 6 + 4 ) + 1 = 4 + 1 = 5

6. 3

a = 28

b = 7

b = a / b = 28 / 7 = 4

c = a % (b + 1) = 28 % (4 + 1)  = 28 % 5 = (5*5 + 3) % 5 = 3

7. 7

a = 26

b = 6

b = a % b = 26 % 6 = (4 * 6 + 2) % 6 = 2

c = a / (b + 1) = 26 / (2 + 1) = 26 / 3 = (7*3 + 5) / 3 = 7

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -