25==11001
47=<span>101111
94=</span>1011110<span>
115=</span><span>1110011
203=</span>11001011<span>
458=</span><span>111001010</span>
1) Системный блок, монитор , клавиатура, мышь
2)Процессор -это важнейшее устройство компьютера, его мозг , предназначен для выполнения вычисления и исполнения.
3)для запоминания информации
4)устройство ввода : клавиатура, мыши, игровые манипуляторы.
устройство вывода: мониторы.
5)Порт - это натуральное число , записываемое в заголовках протоколов транспортного уровня модели OSI. Используется для определении процесса- получателя пакета в пределах одного хоста.
6)Материнская плата -печатная плата, являющаяся основой построения модульного устройства, например- компьютера. Материнская плата : микро процесс, процессор, адаптеры устройств, оперативная память, разъем для дисковых накопителей.....
7)Системная шина выполняет функцию : передача информации между платами "ЦП Память, и картами.....
<span>uses crt;
const nmax=100;
var x:array[1..nmax] of integer;
n,m,i,j,k,a,p:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(10);
write(x[i]:4);
end;
writeln;
i:=1;
m:=n;
while i<n-1 do
begin
k:=1;
a:=x[i];
for j:=n downto i+1 do
if x[j]=a then k:=k+1;
if k>2 then
begin
j:=i;
while j<=n do
if x[j]=a then
begin
if j=n then n:=n-1
else
begin
for p:=j to n-1 do
x[p]:=x[p+1];
n:=n-1;
end;
end
else j:=j+1;
end
else i:=i+1;
end;
if n=0 then
begin
exit
end;
if n=m then
write('Все элементы встречены не более 2 раз и не удалены')
else
begin
for i:=1 to n do
write(x[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if(i mod 2=0)and(j mod 2=0) and(x[i]<x[j]) then
begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
for i:=1 to n do
write(x[i]:4);
end;</span>
42*34=1428 байт на 1 лист
12*1428=17136 байт на 1 тетрадь
17136/1024~17,6 Кб
1,44~1475 Кб
1475/17,6~84 тетради
Ответ: 84 тетради
Вот вся Ваша задача...
<em>// PascalABC.NET 3.2, сборка 1415 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=MatrRandom(5,6,10,90);
a.Println(3); Writeln;
var b:=a.Rows.Select(x->x.Sum);
b.Println
end.
<u>Пример</u>
50 86 32 24 32 69
88 76 55 31 57 81
35 43 25 26 83 83
44 63 61 75 58 30
84 55 80 57 21 42
293 388 295 331 339