B1. 360 бита=45 байт
В2. 2048 бит
В3. 256 символов в алфавите
В4. 70000 бит=8750 байт
В5. 64 символа в алфавите
Надеюсь, что решение не нужно)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var a := ArrRandom(10, -5, 10);
writeln(a);
var i:=1;
var s:=0;
while i<=9 do begin
s:=s+a[i];
i:=i+2;
end;
writeln(s);
end.
А||В||~В||А•~В
0||0||1||0
0||1||0||0
1||0||1||1
1||1||0||0
Паскаль:
var Gr, Pu, Ko, Sl,n ,m : integer;
begin readln(Gr, Pu, Ko, Sl); readln(n, m); Gr := Gr - n + m; if (Gr >= Pu) and (Gr >= Ko) and (Gr >= Sl) then writeln('Yes') else writeln('No')end.