Red(красный), Green(Зеленый), Blue(Синий)
Модель:
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>
Ответ:
Смотрите решение на фото, прикреплённое ниже
Объяснение:
var a:integer;
t,z:real;
begin
a:=2;
while a<= 12 do
begin
t:=sin(4*a);
z:=3.5*sqr(t)-7*cos(t)+1.6;
writeln('a = ',a:2,' t = ',t:6:3,' z = ',z:6:3);
a:=a+1
end
end.
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
