Непозиционной системой счисления<span> является ,к примеру,</span>римская (есть и другие) 2014 год это будет - MMXIV, октябрь это у нас 10 месяц будет - X и число сегодня 24 будет - <span>XXIV
В итоге: год </span>MMXIV,месяц X, число XXIV ,что означает по нашему 2014.10.24
Ответ:
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.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal; var y:=x*x+11; Writeln(y)
end.
Begin
var a:=ArrRandom(40,0,20).Println;
var s:=a.Where(x->x mod 3 = 0).Sum;
writeln('S = ',s);
end.
Пример:
8 11 7 18 1 9 10 16 5 1 15 17 15 20 12 7 15 18 2 15 0 7 19 4 7 17 2 19 3 11 1 15 1 2 3 4 18 5 7 1
S = 156