A) x[1]+x[2]+x[3];
б) y[1]+y[2]+y[3]+y[4]+y[5];
в) x[1]*x[2]*x[3]*x[4]*x[5];
г) abs(y[3]);
д) x[1]+y[1];
Это интернетная,мобильная сеть
Выражение можно упростить:
( (X∨Y ) ⇒ Y ) & (1 ∨ Y) ⇒¬Y
=
(<span>¬X∨Y )</span><span> & </span><span>(1 ∨ Y) ⇒¬Y
=</span>
(¬X∨Y ) <span>⇒¬Y =
X </span><span>& </span><span>¬Y </span><span>v ¬Y =
</span><span>¬Y
Значит для любого X если Y = 0, то значение выражения = 1 и наоборот, если Y = 1, </span><span><span>то значение выражения = 0</span></span>
//PascalABC.Net;
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
Var a,b,c:integer;begin readln(a); readln(b); readln(c); writeln((a+b+c)/3);end.