1, 2, 5 Только эти три удовлетворяют.
1. Десятичные - Двоичные
127 = 1111111
195 = 11000011
289 = 100100001
513 = 1000000001
54 = 110110
2. Двоичные - Десятичные
110101 = 53
100111 = 39
1101100 = 108
1011101 = 93
11001101 = 205
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150
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>