45_10=101101_2(для перевода нужно делить 45 на 2 до тех пор, пока остаток не станет равным 1) 82_10=1010010_2(для перевода нужно делить 82 на 2 до тех пор, пока остаток не станет равным 1) 101011_2=43_10(напишите над каждой цифрой двоичного числа цифры по порядку(справа налево), начиная с нуля, возводите 2 в эту степень и складывайте, т.е: 2^0+2^1+2^3+2^5=1+2+8+32=43) 1110_2=14-10(напишите над каждой цифрой двоичного числа цифры по порядку(справа налево), начиная с нуля, возводите 2 в эту степень и складывайте, т.е: 2^1+2^2+2^3=2+4+8=14)
Var A:array[1..5] of integer; i,O,P:integer; Begin Write('Введите массив A(5): '); O:=0; P:=0; For i:= 1 to 5 do Begin Read(A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
Заполнение случайными числами:
Const N = 5; Var A:array[1..N] of integer; i,O,P:integer; Begin Randomize; Write('Введите массив A(5):'); O:=0; P:=0; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
82_10=1010010_2(для перевода нужно делить 82 на 2 до тех пор, пока остаток не станет равным 1)
101011_2=43_10(напишите над каждой цифрой двоичного числа цифры по порядку(справа налево), начиная с нуля, возводите 2 в эту степень и складывайте, т.е: 2^0+2^1+2^3+2^5=1+2+8+32=43)
1110_2=14-10(напишите над каждой цифрой двоичного числа цифры по порядку(справа налево), начиная с нуля, возводите 2 в эту степень и складывайте, т.е: 2^1+2^2+2^3=2+4+8=14)