Модель:
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>
Дано
a=500
b=512
N=16
V=?
V=a*b*I I - неизвестно N=2^I 16=2^I I= 4 бит
V=500*512*4=1024000 бит=125 Кбайт
Попробуй, может сработает)
program num32;var
nums, i, min, max, a, i2, i3, sum: integer;begin
min := 7;
max := 0;
sum := 0;
readln(nums);
while nums <> 0 do
begin
if (((nums mod 10) > max)) then begin
max := nums mod 10;
end;
if (((nums mod 10) < min)) then begin
min := nums mod 10;
end;
nums := nums div 10;
end;
if (min > max) then begin
for i2 := max to min do
sum := sum + i2;
end;
if (max > min) then begin
for i2 := min to max do
sum := sum + i2;
end;
writeln(sum);
end.
4 елочки могут принимать значение 2 значение (серебристый и ли зеленый). Как 1 бит - ложи или истина
4 елочки = 4 бита.
2^4 = 16.
Ответ: 16 различных способов
Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17