//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=abs(ReadInteger).Tostring.Select(x->x.ToDigit);
writeln('сумма цифр: ',a.Sum);
write('произведение цифр: ',a.Aggregate(Real(1),(x,y)->x*y));
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function InArea(p:(real,real)):boolean;
begin
var (x,y):=p;
Result:=(Abs(x)<=1) and (Abs(y)<=1) or
(y>=x-2) and (x>=0) and (y<=0)
end;
begin
var n:=ReadInteger('n=');
Randomize;
var P:=ArrGen(n,i->(Random(-11,22)/10,Random(-22,12)/10));
Writeln('Исходные точки (x,y)'); P.Println;
var R:=P.Where(x->InArea(x)).ToArray;
Writeln('Отобрано точек - ',R.Length);
Writeln('Отобранные точки (x,y)'); R.Println
end.
<u>Пример</u>
n= 20
Исходные точки (x,y)
(0,0.6) (1.1,1.1) (-0.9,0.3) (-0.7,-0.3) (1.3,-1.7) (-1,-1.6) (1.6,-1.5) (1.3,-0.2) (0.5,-0.7) (-0.7,-1.5) (1,-1.2) (1.9,0.6) (0.7,0.9) (1.3,-0.5) (1.6,0.4) (-0.8,0.2) (0.5,-1.8) (1.5,-1.1) (-0.6,-0.1) (0.9,0.1)
Отобрано точек - 10
Отобранные точки (x,y)
(0,0.6) (-0.9,0.3) (-0.7,-0.3) (1.3,-0.2) (0.5,-0.7) (0.7,0.9) (1.3,-0.5) (-0.8,0.2) (-0.6,-0.1) (0.9,0.1)
<em>// PascalABC.NET 3.3, сборка 1570 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(11,-29,150); a.Println;
Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
Swap(a[1],a[6]);
Writeln('Результирующий массив'); a.Println
end.
<u>Пример</u>
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14
Ответ:
240ая.
Объяснение:
1. 28мая - количество символов нечетное, следовательно удаляем средний символ цепочки. Средний символ - "м".
Получаем: 28ая.
Применяем алгоритм, получаем "39ая".
2. 39ая - количество символов четное, следовательно добавляем в начало цепочки "1".
Получаем: "139ая".
Применяем алгоритм, получаем: "240ая".