// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
var y:=ArrRandom(n,1,100); y.Println(', ');
var imax:=0;
var imin:=0;
for var i:=1 to n-1 do
if y[i]>y[imax] then imax:=i
else
if y[i]<y[imin] then imin:=i;
Swap(y[imax],y[imin]);
y.Println(', ')
end.
<u><em>Тестовое решение:</em></u>
n= 12
35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31
35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31
K = 140*25 = 3500 символов;
Если принять русский алфавит за 32 символа, то N = 2^i; 32 = 2^5 ; i = 5
I = K*i = 3500*5 = 17500бит = 2.1875байт
<span>1 дискета = 1457664 байт;</span>
<span>1/3 = 485888байт.</span>
<span>140 символов в минуту = 140*5 = 700бит. = 87.5байт</span>
<span>485888/87.5 = 5553минут</span>
<span>З.Ы Не уверена насчет мощности алфавита, если он читает текстовый файл, то бери 1 символ = 1 байт.</span>
Решение - в прилагаемом файле.
Ответ:
d = int(input())
m = int(input())
yc = int(input())
c = yc // 100
y = (yc - c) % 100
otv = (d + ((13 * m - 1) // 5) + y + (y // 4 + c // 4 - 2 * c + 777)) % 7
print(otv)
Объяснение:
Нет: сколько у вас работ, для каких клиентов, в какой технике и какого качества, какие программы использованы.По ситуации: возраст, место жительства или работы; биография, образование, владение иностранными языками, подробности личной жизни.Да: профессиональные интересы, чем вы будете полезны, любимые типы задач, владение полезными знаниями и навыками, которые нельзя увидеть портфолио.<span>Описывать свои работы — тупиковый путь:</span>
