begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := a.Where(p -> p > 0).Sorted.ToArray;
if b.Length > 0 then
var j := 0;
for var i := 0 to a.High do
if a[i] > 0 then begin
a[i] := b[j];
j += 1
end
else
a[i] := 0
end;
a.Println
end.
var a: real;begin read(a); writeln((2*a*sin(3*a))/3.5);end.
110 011 в 2 = 63 в 8, 51 в 10 , 33 в 16
412 в 8 = 100001010 в 2 , 266 в 10, 10A в 16
914 в 10, 11100100102 в 2, 1622 в 8, 0392 в 16
E3 в 15, 11100011 , 227 в 10 в , 343 в 8