Значащие нули - нули не находящиеся на 1 позиции числа . Пусть n кол-во значащих нулей :
289 (10) = <span>100100001 (2) , тогда n = 6
309 (10) = </span><span>100110101 (2) , тогда n = 4
</span>154 (10) = <span>10011010 (2) , тогда n = 4
</span>763 (10) = <span>1011111011 (2) , тогда n = 2</span><span>
</span>
begin
var a := ArrRandom(16, -20, 20); a.Println;
a.Numerate(0).Where(x -> x[1].isEven)
.Select(x -> x[0]).Println;
end.
Program p1;
var s,s1:string;
i,n:integer;
begin
s:='КОТ';
n:=length(s);
writeln(s);
for i:=1 to n do s1:=s1+copy(s,n-i+1,1);
writeln(s1);
<span>end.</span>