Задача очень простая,наверно муниципальный этап.Вот решение на Python 3
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
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(50, -50, 49);
a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println
end.
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.
Var
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
end.