1100110011 в 10сс будет 819, в 8сс будет 1463, в 16сс будет 333
var s:string; i,n:integer;
Begin
read(s);
for i := 1 to length(s) do begin
if s[i]="(" then n=n+1;
if s[i]=")" then n=n-1;
if n<0 then begin
Write("нет баланса");
halt;
end;
Write("есть баланс");
End
Модель:
x1 ≥ 1000
x2 ≥ 1000
x3 ≥ 1000
x1 ≥ x2+x3 (или x1-x2-x3 ≥ 0)
x2 ≥ 25000
x1+x2+x3 = 100000
Целевая функция: F(X) = 0.1·x1+0.06·x2+0.065·x<span>3
Решение в Excel показано в прилагаемом файле.</span>
втрое и 5 условие надо провериить... .....
<span> ПК- это персональный компьютер .на котором находится ваша информация</span>