Const n=10;
var a:array[1..n]of integer;
i,k,l,aa: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 11 =0) and (a[i]<1000) and(a[i]>99) then
begin
k:=0;
aa:=a[i];
for i:=1 to 3 do
begin
l:=aa mod 10;
if l=3 then k:=1;
aa:=aa div 10;
end;
if k=1 then writeln(a[i]);
end;
end.
Не уверен, правильно ли вас понял. Если что, пишите.
25 (10cc) =2^4+2^3+2^0 =11001 (2cc)
19 (10cc)=2^4+2^1+2^0=10011 (2cc)
-----------------------------------------------------
используя формулу А→В =¬А+В приводим данную формулу в условии к виду:
(X&25=0)+(X&19≠0) + (Х&A≠0)=1
рассмотрим случай, когда
(Х&25 =0) +(X&19≠0) =0 и (Х&A≠0)=1
-------------------------------------------------------------------------------------------------
так как 25 = 11001, то (X&25=0) = 0 (т.е. конъюнкция будет "ложь")
при Х={1; 1000; 1001; 10000; 10001; 11000; 11001}
так как 19=10011, то (Х&19≠0) = 0 при
X={100; 1000; 1100}
общее значение : Х=1000 (2сс) = 8 (10сс)
------------------------------------------------------------------------------------------------
ответ 8
Sub Main
dim n as integer
dim k as integer
dim p as integer
dim min as integer
dim s as string
n=inputbox("Сколько будет чисел?")
dim a(n)
for i=1 to n
<span> a(i)=inputbox(i & " число")
</span><span> s=s & a(i) & "; "
</span>next i
min=a(1)
k=1
for i=2 to n
<span> if a(i)<min then
</span><span> min=a(i)
</span><span> k=i
</span><span> end if
</span>next i
p=a(k+1)
for i=k+2 to n
<span> p=p*a(i)
</span>next i
s=s & "p=" & p
msgbox(s)
<span>End Sub</span>
1010х=1010
х=1010/1010
х=1
Ответ:1