Решение:Разделим число 513 на два ( 2 - это основание системы счисления). Делить будем с остатком, частное запишем в столбец "Част.", а остаток в столбец "Ост.". Затем полученное частное снова разделим на два и новое частное и остаток также распределим по столбцам (см. ниже). Повторять деление будем до тех пор, пока последнее частное не окажется меньше двух.Част.Ост.513 : 2 =256 1256 : 2 =128 0128 : 2 =64 064 : 2 =32 032 : 2 =16 016 : 2 =8 08 : 2 =4 04 : 2 =2 02 : 2 =1 0Теперь мы можем записать число 513 в двоичной системе счисления. Для этого в старший (самый левый) разряд числа запишем последнее частное (выделено жирным), а в следующие, по порядку, разряды запишем все полученные выше остатки, беря их снизу вверх. То есть, в самом младшем разряде оказывается самый верхний остаток.ответ: 51310 = 10000000012
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
