Using System;
public class Test
{
public static void Main()
{
int n=0, d=1;
Console.WriteLine("Введите двоичное число: ");
string s = Console.ReadLine();
for (int i=0; i<s.Length; i++){
if (s[i]=='1') n += d;
d *= 2;
}
Console.WriteLine("n = {0}", n);
Console.ReadKey();
}
}
Пример:
<span>Введите двоичное число: 1110111
n = 119</span>
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadInteger.ToString.GroupBy(c->c).Select(c->(c.Key,c.Count)).
Where(t->t[1]>1).Select(t->t[0]).Println(',')
end.
<u>Пример</u>
765645656
6,5
//Pascal ABC.NET v3.1 сборка 1172
Var
ar:array[1..15] of integer;
i,k1,k2:integer;
r1,r2:real;
begin
randomize;
writeln('Array:');
for i:=1 to 15 do
begin
ar[i]:=random(-20,20);
write(ar[i]:4);
if i mod 2=0 then
begin
inc(k1);
r1:=r1+ar[i];
end;
if ar[i]>0 then
begin
inc(k2);
r2:=r2+k2;
end;
end;
r1:=r1/k1;
r2:=r2/k2;
writeln;
if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах');
if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива');
if r1=r2 then writeln('Равно');
end.
Если по правилам, то 1 тб=1024 гб
1024:4,7=217,8 или по другому 218 дисков.