1) 20₁₀ = 10100₂
2) 68₁₀ = 1000100₂
3) 400₁₀ = 110010000₂
4) 257₁₀ = 100000001₂
5) 2010₁₀ = 11111011010₂
Объяснение:
1) 20₁₀ = n₂
20 mod 2 = 0
10 mod 2 = 0
5 mod 2 = 1
2 mod 2 = 0
1 mod 2 = 1
Остаток от деления записываем в обратном порядке и получаем число: 10100₂
2) 68₁₀ = n₂
68 mod 2 = 0
34 mod 2 = 0
17 mod 2 = 1
8 mod 2 = 0
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 1
Остаток от деления записываем в обратном порядке и получаем число: 1000100₂
3) 400₁₀ = n₂
400 mod 2 = 0
200 mod 2 = 0
100 mod 2 = 0
50 mod 2 = 0
25 mod 2 = 1
12 mod 2 = 0
6 mod 2 = 0
3 mod 2 = 1
1 mod 2 = 1
Остаток от деления записываем в обратном порядке и получаем число: 110010000₂
4) 257₁₀ = n₂
257 mod 2 = 1
128 mod 2 = 0
64 mod 2 = 0
32 mod 2 = 0
16 mod 2 = 0
8 mpod 2 = 0
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 1
Остаток от деления записываем в обратном порядке и получаем число: 100000001₂
5) 2010₁₀ = n₂
2010 mod 2 = 0
1005 mod 2 = 1
502 mod 2 = 0
251 mod 2 = 1
125 mod 2 = 1
62 mod 2 = 0
31 mod 2 = 1
15 mod 2 = 1
7 mod 2 = 1
3 mod 2 = 1
1 mod 2 = 1
Остаток от деления записываем в обратном порядке и получаем число: 11111011010₂
i: Integer;
a: Array [1..16] of Real;
BEGIN
For i := 1 to 16 do begin
a[i] := Cos(i) / i;
Writeln('L[',i,'] = ',a[i]); End;
Writeln;
For i := 2 to 15 do
If (a[i] > a[i-1])and(a[i] > a[i+1]) then Writeln('L[',i,'] = ',a[i]);
END.