<em>1)</em><span><em>с информацией</em>
<em>2)</em></span><span><em>драйвером</em>
<em>3)</em></span><span><em>загрузки данных из внешней памяти в оперативную</em>
<em>4)</em></span><span><em>арифметико-логическое устройство</em>
<em>5)</em></span><span><em>контроллер</em>
<em>6)</em></span><span><em>комплекс программ, обеспечивающий поддержку работоспособности программного обеспечения и </em></span>
<span><em>аппаратных средств ПК</em>
<em>7)</em></span><span><em>Дж. фон Нейманом</em>
<em>8)</em></span><span><em>описание принципов работы ЭВМ</em>
<em>9)</em></span><span><em>сеть</em>
<em>10)</em></span><span><em>именованная последовательность данных, размещенных на внешнем носителе</em>
<em>11)</em></span><span><em>адаптер( контроллер)</em>
<em>12)</em></span><span><em>на машинном языке ( в двоичном коде)</em>
<em>12)</em></span><span><em>число двоичных операций, совершаемых процессором в единицу времени</em></span>
function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.
3*20*30*5=9000бит или 1125 байт или 1,1 кбайт
Решение: перемножили 3 листа на 20 строк на 30 символов и получили кол-во символов всего сообщения. Умножили символы на 5 бит (в 32 символьном алфавите столько бит нужно для записи одного символа) и получили объём информации
1.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.
Результат:
<span>12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.
Результат:
<span>69 78 87 96 </span></span>
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(10,-20,20);
a.Println(',');
var m:=a.Max;
for var i:=0 to 9 do
if a[i]=m then a[i]:=0;
a.Println(',')
end.
Тестовое решение:
-14,-7,<em>15</em>,-7,-11,7,4,1,-20,-15
-14,-7,<em>0</em>,-7,-11,7,4,1,-20,-15