// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n=15
-64 -10 56 -78 35 -53 61 -12 17 29 -45 -13 73 24 1
73 61 56 35 29 24 17 1 -10 -12 -13 -45 -53 -64 -78
Program asd;
Var s,x,x1:integer;
begin
read (x,x1);
if (x mod 2=0) and (x1 mod 2=0)
then s:=(x+x1)/2
else s:=s:=(x-x1)/2
end.
Program vtoroeZad;
Uses crt;
var x:integer;
begin
if (x div 100)>(x mod 10)
then write ('da')
else write ('net');
end.
<span>import math as m
a =int(input('a='))
P = a**<span>2
</span>print("Периметр квадрата = ",P)
r = int(input("r = "))
print("Периметр круга = ",round(2*m.pi*r,4))</span>
Times New Roman-наиболее используемый шрифт
I=1/32 Кб=32 байта=256 бит
К=64
i=I/K
i=256/64=4
N=2 в степени i
N=2 в 4 степени=16
ответ: алфавит содержит 16 символов