Var
n,x:integer;
a,b,c:byte;
Begin
read (n);
c:=n div 100 mod 10;
b:=n div 10 mod 10;
a:=n div 1 mod 10;
x:=100*a+10*b+1*c;
write (x);
<span>end.</span>
If (x>=6) and (x<=8) then begin
z:= x div 2 ;
ответ 8 div 2 = 4 z:=4
Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
58 задание.
первая таблица
0 1 1 1 1
0 1 1 0 1
0 1 0 1 1
1 0 0 0 0
вторая таблица
0. 1. 1. 1. 1
1. 0. 1. 0. 0
1. 0. 0. 1. 0
1. 0. 0. 0. 0