//PascalABC.Net 3.1 сборка 1200
const
n = 15;
begin
var a := ArrRandom(n, 0, 50);
var b := ArrRandom(n, 0, 50);
a.Println;
b.Println;
a := a.Concat(b).ToArray;
a.Println;
a.Sort;
a := a.Slice(0, 1, n);
a.Println;
end.
Program kol_vo_elementov;
var a, b, p:real;
begin
writeln('Введите число');
readln(a);
b:=sqrt(a);
p:=4*b;
writeln('b=',b);
writeln('p=',p);
end.
<span>Кодирование – это операция преобразования знаков или групп знаков одной знаковой системы в знаки или группы знаков другой знаковой системы. </span>
<span>100101</span>₂= 1*2⁵+1*2²+1*2⁰= 32+4+1= 37₁₀
А где фото-то ничего не понятно.