Обеспечение общества общедоступной информацией высокого качества и компьютерными средствами для её хранения и обработки называют 1) киберпространством 2) информационным обществом 3) компьютеризацией 4) информационным кризисом
// 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
// 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.
3) компьютеризацией
Объяснение:
3) компьютеризацией