Znanija.ru online, Steam , Adme
Программа реализована на языке Паскаль
Если это был былый шар, то он его достал из чёрных, так как в смеси были бы только чёрные, если это чёрный шарик, то он его достал из коробки белый, , так как в смеси были бы только белые.
Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>
Var j,i:longint;
begin
for i:=2 to 3628800 begin
for j:=2 to 3628800 do writeln(i*j:10);writeln();
end;
readln;
end<span>.</span>