//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(15).println;
a.Sorted.println.SortedDescending.println;
end.
Тестовое решение:
17 75 17 71 20 86 10 45 10 78 99 11 16 33 20
10 10 11 16 17 17 20 20 33 45 71 75 78 86 99
99 86 78 75 71 45 33 20 20 17 17 16 11 10 10
program xxx;
var i, n, s : integer;
begin
write('введите число N=');
readln(n);
s:=0;
i:=2;
while i<=n do
begin
s:=s+i;
i:=i+2
end;
write('сумма четных чисел =', s);
readln
end.
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
Ответ:
Объяснение:
8 символьный набор кодируется 3 битами
15 умножить на 3 получаем 45 бит на человека
в байте 8 бит
значит 45 / 8 = 5 + 5/8 - байт на человека
округляем до целово в большую сторону
получаем что на пароль нужно 6 байт на человека
теперь добавляем 24 байта доп сведений получаем всего 30 байт на человека
теперь множим на 20 и получаем 600 байт на 20 человек - это ответ