<span>а)1000011110101=4341
</span>1010010111011=5307
<span>110011001100110101=209717
</span>б)123=1111011
456=<span>111001000
1024=</span><span>10000000000
4095=</span><span>111111111111</span>
1)100111 в 8 =3 0 3 4 1 7 по таблице аски сам переведи
100111 в 16 =5 0 15
using System;
class Program
{
static void Main() {
string s=Console.ReadLine(),dic="abcdefghijklmnopqrstuvwxyz";
int k=0;
for(int i=0;i<dic.Length;i++)
{
for(int j=0;j<s.Length;j++)
if(s[j]==dic[i])
k++;
if(k!=0)
{
Console.WriteLine(dic[i].ToString()+" "+k.ToString());
k=0;
}
}
}
}
Вот все варианты решения
значения идут по порядку
"0001110101"
"0001111101"
"0010101101"
"0010110101"
"0010111101"
"0011010101"
"0011011101"
"0011101101"
"0011110101"
"0011111101"
"0101010101"
"0101011101"
"0101101101"
"0101110101"
"0101111101"
"0110101101"
"0110110101"
"0110111101"
"0111010101"
"0111011101"
"0111101101"
"0111110101"
"0111111101"
"1010101101"
"1010110101"
"1010111101"
"1011010101"
"1011011101"
"1011101101"
"1011110101"
"1011111101"
"1101010101"
"1101011101"
"1101101101"
"1101110101"
"1101111101"
"1110101101"
"1110110101"
"1110111101"
"1111010101"
"1111011101"
"1111101101"
"1111110101"
"1111111101"
//Ruby 22
for i in 0..2**10-1
s = ("000000000000000000000000000000" + i.to_s(2))[-10..-1]
next if s[-2]=="1"
a=[]
s.each_char { |c| a<<(c=="1") }
f = true
for k in 0..a.size-3
f = (f and (not a[k] or a[k+1] or a[k+2]))
end
p s if f
end
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var a:=ArrRandom(10,1,100); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Swap(a[imax],a[imin]); a.Println
end.
<u>Пример</u>
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43