Сколько из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству 2218 < С < 9516? 1) 100101002; 2) 100101102; 3) 100100112; 4) 100011002.
№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.
var a,k,s: integer; begin read(a); k := 0; s := 0; while a mod 2 <> 0 do begin if abs(a) mod 10 > 5 then s := s + a; a := abs(a); if (a > 9) and (a < 100) then k := k + 1; read(a); end; writeln('k=',k,', s=',s) end.
{2}
var n,i,p,a: integer; begin read(n); p := 1; for i := 1 to n do begin read(a); if (a > 0) and (a mod 3 = 0) then p := p * a; end; writeln('p=',p) end.
{3}
var n,a,i,k,s: integer; begin read(n); k := 0; s := 0; for i := 1 to n do begin read(a); if a > 0 then begin s := s + a; k := k + 1; end; end; if k = 0 then k := 1; writeln('s=',s/k) end.
