Для того, чтобы перевести число из десятичной системы в двоичную, нужно делить число на 2 и записывать остаток:
а. 89 ÷ 2 = 44, остаток 1;
44 ÷ 2 = 22, остаток 0;
22 ÷ 2 = 11, остаток 0;
11 ÷ 2 = 5, остаток 1;
5 ÷ 2 = 2, остаток 1;
2 ÷ 2 = 1, остаток 0;
1 ÷ 2 = 0, остаток 1
Запишем остатки от деления в обратном порядке: 1011001.
89₁₀ = 1011001₂
По такой же аналогии переведём остальные числа:
б. 600 ÷ 2 = 300, остаток 0;
300 ÷ 2 = 150, остаток 0;
150 ÷ 2 = 75, остаток 0;
75 ÷ 2 = 37, остаток 1;
37 ÷ 2 = 18, остаток 1;
18 ÷ 2 = 9, остаток 0;
9 ÷ 2 = 4, остаток 1;
4 ÷ 2 = 2, остаток 0;
2 ÷ 2 = 1, остаток 0;
1 ÷ 2 = 0, остаток 1;
600₁₀ = 1001011000₂
в. 2010 ÷ 2 = 1005, остаток 0;
1005 ÷ 2 = 502, остаток 1;
502 ÷ 2 = 251, остаток 0;
251 ÷ 2 = 125, остаток 1;
125 ÷ 2 = 62, остаток 1;
62 ÷ 2 = 31, остаток 0;
31 ÷ 2 = 15, остаток 1;
15 ÷ 2 = 7, остаток 1;
7 ÷ 2 = 3, остаток 1;
3 ÷ 2 = 1, остаток 1;
1 ÷ 2 = 1, остаток 1;
2010₁₀ = 11111011010₂
<span><span /></span>
<span><span><span><span>
Дни
</span><span>
Высота (см)
</span></span><span><span>
Первый
</span><span>
- 180
</span></span><span><span>Второй
- </span><span> 182
</span></span><span><span>
Третий
</span><span>
- 184
</span></span><span><span>
Четвертый
</span><span>
- 186
</span></span><span><span>
Пятый
</span><span>
- 188
</span></span><span><span>
Шестой
</span><span>
- 190
</span></span><span><span>
Седьмой </span><span>- 192
</span></span></span></span>
Var a,b,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do if i mod 3 = 0 then write(i,' ');
writeln;
<span>end.
Пример:
a=10
b=20
<span>12 15 18 </span></span>
1. caps Lock;
3. del (delete);
4. backspace
7. pause
9. ctrl
10. tab
12 <span>Scroll Lock</span>
13 esc
14 enter
16 PgDn (Page Down)
По перше,ти не в 5, а десь у 3.По друге,відповідь: 3)
