Var
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('<span>Середнє арифметичне </span> : ',x/k:0:1);
end.
a = 1
n = 4 #odd
b = 3 #even
while a != -1:
a = int(input("Insert number:"))
if a == -1:
break
if > b
b += 1
if a > n
n += 1
print(odd)
В двоичной системе получается 1100100
Ответ: 3
1.147(10)=2113(4)=93(16)
2.2132(4)=158(10), А6Е=<span><span>2670(10)
3.ВА12(16)
11110(2)</span></span>