89₁₀ → X₂
89 | 1
44 | 0
22 | 0
11 | 1
5 | 1
2 | 0
1 | 1
0 |
89₁₀ = 1011001₂
600₁₀ → X₂
600 | 0
300 | 0
150 | 0
75 | 1
37 | 1
18 | 0
9 | 1
4 | 0
2 | 0
1 | 1
0 |
600₁₀ = 1001011000₂
2010₁₀ → X₂
2010 | 0
1005 | 1
502 | 0
251 | 1
125 | 1
62 | 0
31 | 1
15 | 1
7 | 1
3 | 1
1 | 1
0 |
2010₁₀ = 11111011<span>010</span>₂
const
n = 20;
var
a:array[1..n] of integer;
i, j:integer;
check:boolean;
begin
for i := 1 to n do
begin
repeat
a[i] := random(21);
check := true;
for j := 1 to i - 1 do
if a[i] = a[j] then
begin
check := false;
break;
end;
until check;
write(a[i], ' ');
end;
writeln;
end.
В результате выполнения программы на ленте останутся 2 метки - крайняя левая и крайняя правая (из тех, что были на ленте первоначально).
Команды 2, 3, 4 стирают все метки после первой левой. В команде 5 каретка возвратится назад, а в команде 6 будет поставлена метка на месте последней стертой.
442(16) - 9C(16) = 3A6
1090(10) - 156(10) = 934
Var v:real;
begin
write('вв. скорость');
read(v);
if v<=7.8 then write(' ракета упадет на Землю');
if (v>7.8) and (v<11.2) then write(' ракета спутник Земли');
if (v>=11.2) and (v<=16.4) then write ('ракета спутник Солнца');
if v>16.4 then write ('ракета покинет Солнечную систему');
end.