Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
1110102<span> = 2</span>5*1 + 24*1 + 23*1 + 22*0 + 21*1 + 20*0 = 32 + 16 + 8 + 0 + 2 + 0 = 58
Ответ: 1110102<span>=58</span>
Var
l,i:longint;
S:String;
begin
Read(S);
l:=length(S);
For i:=l downto 1 do Write(S[i]);
end.
Var ar:array[1..10] of integer;
i,min,mini:integer;
begin;
min:=101;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if ar[i]<min then
begin;
min:=ar[i];
mini:=i;
end;
end;
writeln;
writeln('Min:',min,' in number:',mini);
end.
X Y Z 1) X*Y*Z 3) ¬(X*Y*Z) 2)¬X+¬Y+¬Z 4) ¬X+Y+Z
0 0 0 0 1 1 1
0 0 1 0 1 1 1
0 1 0 0 1 1 1
0 1 1 0 1 1 1
1 0 0 0 1 1 0
1 0 1 0 1 1 1
1 1 0 0 1 1 1
1 1 1 1 0 1 1
5) X Y Z X+Y ¬(X+Y) ¬(X+Y)+Z
0 0 0 0 1 1
0 0 1 0 1 1
0 1 0 1 0 0
0 1 1 1 0 1
1 0 0 1 0 1
1 0 1 1 0 1
1 1 0 1 0 0
1 1 1 1 0 1
6) X Y Z X+Y+¬Z ¬(X+Y+¬Z)
0 0 0 1 0
0 0 1 0 1
0 1 0 1 0
0 1 1 1 0
1 0 0 1 0
1 0 1 1 0
1 1 0 1 0
1 1 1 1 0
<span>Sub love01()
Dim a(999) As Integer, Count35 As Integer
For i = 0 To 999
a(i) = Int(Rnd * 1000)
</span>Count35 = Count35 - ((a(i) Mod 3 = 0) or(a(i) Mod<span> 5 = 0))</span><span>
Next
MsgBox Count35
End Sub
т.е. 8 элементов)</span>