в=64
2^2+2^3+2^4+2^5=32+16+8+4=60
60(10)=74(8)
Переменная C для сохранения значения X.
Setlocale(LC_ALL,"Russian") для русского языка в консоли(на некоторых ПК русские символы отображаются неправильно).
System("pause") для ожидания нажатия клавиши, перед закрытием окна.
Алгоритм вкратце:
Вводим X, Y;
Если X>Y то, C=X, X=Y, Y=C;
Вывод X,Y;
Будут вопросы - обращайся)
//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
var n := 0;
var p := 1;
for var i := length(bin) downto 1 do
begin
n += p * StrToInt(bin[i]);
p *= 2;
end;
Result := n;
end;
begin
var s := ReadlnString('s =');
writeln(BinToDec(s));
end.
47 Кб = 48128 Байт
2 Мб = 2097152 Байт
30 Кб = 245760 Бит