Var amoebas, t: integer; begin amoebas : = 1; t : = 0; repeat t : = t + 3; amoebas : = amoebas * 2; writeln(amoebas, ' амеб через ', t, ' часа'); until t > = 24; end.
kotsur
13.07.2020
Требуется перевести дробное десятичное число 206,116 в дробное двоичное число. перевод целой части дает 206=11001110(для этого мы делим 206 на два и записываем остатки от деления) , затем дробную часть умножаем на основание 2, до тех пор, пока дробная часть не будет равна нулю, занося целые части произведения в разряды после запятой искомого дробного двоичного числа: .116 • 2 = 0.232 .232 • 2 = 0.464 .464 • 2 = 0.928 .928 • 2 = 1.856 .856 • 2 = 1.712 .712 • 2 = 1.424 .424 • 2 = 0.848 .848 • 2 = 1.696 .696 • 2 = 1.392 .784 • 2 = 0.784 получим: 206=11001110,0001110110