// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var t:=a.Partition((x,i)->i.IsEven); var s:=t[0].Interleave(t[1].OrderByDescending(x->x)); if a.Length.IsOdd then a:=s.ToArray+Arr(a.Last) else a:=s.ToArray; a.Println end.
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
unit garnaga;
interface
function LC(r:real):real;
function SC(r:real):real;
function RC(x,y:real):real;
implementation
function LC(r:real):=2*pi*r;
function SC(r:real):=pi*r*r;
function RC(x,y:real):=sqrt(x*x+y*y);
end.
2. Основная программа
uses garnaga;
begin var x,y,r:real; Writeln('Введите X, T, R: '); Read(x,y,r); Writeln('Длина окружности ',LC(r):0:5); Writeln('Площадь круга ',SC(r):0:5); Writeln('Расстояние от центра до начала координат ',RC(x,y):0:5); end.
3. Пример работы
Введите X, T, R: 3.5 -6.7 20 Длина окружности 125.66371 Площадь круга 1256.63706 Расстояние от центра до начала координат 7.55910
2856
Объяснение:
B28↓16 = 11∙16^2+2∙16^1+8∙16^0 = 2816+32+8 = 2856↓10