// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),-5,5);
a.Println;
var b:=a.Select((x,i)->x=0?i+1:0).Where(i->i>0);
if b.Count>0 then begin
b.Println(','); Writeln('Кол-во: ',b.Count)
end
else Writeln('Нет нулевых элементов')
end.
<u><em>Тестовое решение:</em></u>
n= 20
-4 2 5 -2 0 5 4 4 -3 -2 -5 2 1 0 -2 0 4 1 -2 3
5,14,16
Кол-во: 3
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.
Ответ:
Объяснение:
110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 53₁₀
53₁₀ = 5*8⁰ + 6*8¹ = 65₈
53₁₀ = 5*16⁰ + 3*16¹ = 35₁₆
217₈ = 7*8⁰ + 1*8¹ + 2*8² = 143₁₀
143₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10001111₂
143₁₀ = 15*16⁰ + 8*16¹ = 8F₁₆
216₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11011000₂
216₁₀ = 0*8⁰ + 3*8¹ + 3*8² = 330₈
216₁₀ = 8*16⁰ + 13*16¹ = D8₁₆
4AC₁₆ = C*16⁰ + A*16¹ + 4*16² = 1196₁₀
1196₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 1*2¹⁰ = 10010101100₂
1196₁₀ = 4*8⁰ + 5*8¹ + 2*8² + 2*8³ = 2254₈