Var a: integer;
var d: real;
begin
write('Введите дюймы: ');
readln(a);
d:=a*2.54;
writeln(a,'(дюйм) = ',d,' (см)');
end.
Всего длина окружности составляет 2пr, а половина - пr
Для цыфры 1025.
Пишем последовательность чисел
1024 512 256 128 64 32 16 8 4 2 1
чтобы получилось 1025 нам нужно взять с этой последовательности число 1024 и 1 = 1024+1=1025,
те числа которые взяли, над ними пишем "1"
1 0 0 0 0 0 0 0 0 0 1
1024 512 256 128 64 32 16 8 4 2 1
вот вам и перевод 1025=10000000001
----------------------------------------------------------------------------------------------------
950
0 1 1 1 0 1 1 0 1 1 0
1024 512 256 128 64 32 16 8 4 2 1
950=1110110110
----------------------------------------------------------------------------------------------------
543
0 1 0 0 0 0 1 1 1 1 1
1024 512 256 128 64 32 16 8 4 2 1
543=1000011111
--------------------------------------------------------------------------------------------------
489=111101001