//Pascal ABC.NET 3.1 сборка 1219
Var
ar:array[1..10] of integer;
i,n,k:integer;
b:boolean;
begin
randomize;
k:=1;
b:=false;
writeln('Array');
for i:=1 to 10 do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
writeln;
readln(n);
for i:=10 downto 10-n+1 do
if ar[i]>0 then
begin
k:=k*ar[i];
b:=true;
end;
if b=true then write('Res=',k) else write('Res=0');
end.
Пример работы программы:
Array 0 -8 -7 -9 8 -8 9 2 -7 -6
5
Res=18
1 мб = 1000 кб
4096 <span>≈ 4 мб</span>
1) 8 / 4 = 2 - в два раза 4 мб меньше чем 8 мб.
2) 128 / 2 = 64 (сек.) - ответ.
Ответ: за 64 секунды файл с размером 4 мегабайта будет передан.
<em>Присваивание</em> - это действие в результате которого переменная величина получает определенное значение.
Приведем все в десятичную для удобства
1110101 = 117
476 = 318
217 = 535
13D = 317
Следовательно,
Ответ:
максимальный = 217 в шестнадцатеричной
минимальный = 1110101 в двоичной
a) Максимальное значение суммы разрядов равно 18 (получется как 9+9).
b) Разряды результата разбиватются на два числа, первое из которых не может превышать второе.
214 разбивается на 2 и 14. Такой результат недопустим: если сумма двух чисел была равна 2, то никакое из этих чисел не даст 14 во второй сумме.
148 разбивается на 14 и 8. Такой результат недопустим: нарушен порядок следования сумм.
145 разбивается на 14 и 5. Такой результат недопустим: нарушен порядок следования сумм.
142 разбивается на 14 и 2. Такой результат недопустим: нарушен порядок следования сумм.
514 разбивается на 5 и 14. Такой результат допустим.
814 разбивается на 8 и 14. Такой результат допустим.
114 разбивается на 1 и 14. Такой результат недопустим: если сумма двух чисел была равна 1, то никакое из этих чисел не даст 14 во второй сумме.
Ответ: 2.
