36(16) = 0100100 (2)
B1A.D (16)
= 2842.8125 (10)
= 5432.17675 (8)
= 101100011010.1111110111101 (2)
342.243(8) = 156.F3(16)
Функция перевода JS числа 16 из ==> 10
function hexaToDeci(str)
{
var parts = str.split(".");
if ( parts.length > 1 )
{
return parseInt(parts[0], radix) + parseInt(parts[1], radix) / Math.pow(radix, parts[1].length);
}
return parseInt(parts[0], radix);
}
Функция перевода JS числа из 10 ==> 2
(x).toString(2);
Функция перевода JS числа из 10 ==> 8
(x).toString(8);
Sub maxZn()
'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i
'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then
qty = qty + 1
End If
If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub
<span>Sub test()
Call maxZnEnd
Sub</span>
<span>Кодированием числовой информации:называется совокупность приемов наименования и записи чисел.</span>
Если не превышает 10 символов, то только 4 и 8 символов подходит (2 и 3 бита соответственно).
Program Proizved;
var i, a, b, rez : integer;
begin
write('введите начало диапазона ');
readln(a);
write('введите конец диапазона ');
readln(b);
rez:=1;
for i:=a to b do
if (i mod 2)<>0
then rez:=rez*i;
i:=i+1;
writeln('Произведение нечетных чисел диапазона = ', rez);
end.
