Ответ:
var j,i,k,n:integer;
m:array[1..1000] of integer;
begin
read(n,k);
//Ввод элементов массива
for i:=1 to n do
read(m[i]);
//Сортировка по возрастанию
for i:=1 to k do
for j:=i to k do
if m[j]<m[i] then swap(m[i],m[j]);
//Сортировка по убыванию
for i:=k+1 to n do
for j:=i to n do
if m[j]>m[i] then swap(m[i],m[j]);
//Вывод элементов массива
for i:=1 to n do
print(m[i]);
end.
Вначале надо найти кол-во символов в одном сочинении: k=4*25*40=4000 символов. Далее переведем объем дискеты в биты: 1,44*1024*8=11796,48 бит. Ну и поделить одно на другое:11796,48:4000=2,95 Но на понятно,что на диск поместятся только целые сочинения,а не 0,95,так что ответ:2 сочинения.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
Выражение можно упростить:
( (X∨Y ) ⇒ Y ) & (1 ∨ Y) ⇒¬Y
=
(<span>¬X∨Y )</span><span> & </span><span>(1 ∨ Y) ⇒¬Y
=</span>
(¬X∨Y ) <span>⇒¬Y =
X </span><span>& </span><span>¬Y </span><span>v ¬Y =
</span><span>¬Y
Значит для любого X если Y = 0, то значение выражения = 1 и наоборот, если Y = 1, </span><span><span>то значение выражения = 0</span></span>
<span>128*256*2=65536 бит =8192 байта </span>
