Переведите из десятичной системы счисление следующие числа: 0, 025 → а(2 внизу рядом с а) 0, 0625 → а(16 внизу рядом с а) 0, 0625 → а(8 снизу рядом с а)

ну это не совсем  тривиальное действие

если при переводе  целых чисел мы при переводе из 10-й системы  при переводе в другую делим на основание системы перевода ,  то с дробями мы совершаем обратные действия мы умножаем   на основание системы счисления в которую переводим на 2 , 8 или 16, потом при произведении целая часть отбрасывается и переводится в цифру той сиситемы в которую переводим и сноваа умножаем дробную часть на основанине,до тех пор пока в дроби не получится 0 или так и будет бесконечная дробь

3. 0.0625 в 16 ричную сисстему

0.0625*16=1 целая часть 1 дробная 0 получаем что 0.0625 (10)=0.1 (16)

2. 0.0625 в 8 ричную

0.0625  * 8= 0.5 получается целая 0 дробная 5 - целую пишем как главную после запятой а 0.5 снова умножаем на 8 0.5*8=4 целая 4 дробная 0

0.0625 (10)=0.04 (8)

1.  0.025 в 2 чную

0.025*2=0.05 целая 0 дробная 05 снова дробную на 2 0.05*2= 0.1 целая 0 дробная 1 умножаем на 2 0.1*2= 0.2 целая 0 дробь 2 0.2*2=0.4 целая 0 дробь 4 0ю4*2=0.8 цлая 0 дробь 8 0.8*2=1.6 целая 1 дробь 6 0.6*2=1.2 целая 1 дробь 2 и получается что с этого места начинается периодическая дробь так как 0.2 мы уже раньше видели итак

0.025 (10)= 0.0000011001100110 (2)= 0.0000(0110) (2)

Берем третьи байты и переводим в двоичную систему счисления: добавим в начале нулей, чтобы получилось 8 цифр.   ←    ←  найдем маску. запишем с столбик. если элементы одинаковые, ставим соответствующее число, если элементы разные, ставим крестик: 00000101 00011101 000xx101    ← маска т.к. по правилу в маске, сначала идут единицы, переместим их в начало: 11xx0000 если бы по условию, надо было бы найти наименьшее возможное значение, то мы бы заменяли крестики(х) на нули. т.к. по условию необходимо наибольшее возможное значение, подставляем вместо крестиков(x), единицу и переведем в десятичную систему счисления:

Шар может поместиться в параллелепипед, если его диаметр будет меньше минимального из ребер параллелепипеда. pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =readlnstring.toreals;   if a.take(3).min> 2*a[3] then writeln('yes') else writeln('no'); end. если нужны именно файлы: begin   var a: =readalltext('input.txt').toreals;   var s: =a.take(3).min> 2*a[3] ? 'yes' : 'no';   writealltext('output.txt',s) end.