237 = 11101101
Сначала делим на 2:
237 / 2 = 118(1)(так-как есть остаток)
118 / = 59(0)(так-как нет остатка)
59 / 2 = 29(1)
29 / 2 = 14(1)
14 / 2 = 7(0)
7 / 2 = 3(1)
3 / 2 = 1(1)
1 / 2 = 0(1)
А потом записываем с конца.
С остальными так-же.(но лучше воспользоваться стандарнным windows'ким калькулятором(вид->программист->и когда введёшь число выбрать Bin :))
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
252 = 11111100
90 = 01011010
№ ПК это цифры из IP адреса, где в маске 0,
следовательно из третьей десятичной цифры 2 разряда
из цифры 90 - это 10 двоич. = 2(10)
<span>№ ПК = 2.162 в десятичной записи</span>