<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>begin
var (v1,v2,t):=(60,15,2);
Writeln('Расстояние равно ',(v1+v2)*t,' км')
end.
<u>Результат</u>Расстояние равно 150 км
Ответ:
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Объяснение:
Ответ:
1)
20₁₀
45₈
101001₂
65₁₆
24₈ = 4*8⁰ + 2*8¹ = 20₁₀
37₁₀ = 5*8⁰ + 4*8¹ = 45₈
41₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ = 101001₂
101₁₀ = 5*16⁰ + 6*16¹ = 65₁₆
2)
100110011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 0*2⁷ + 1*2⁸ = 307₁₀
10001001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 137₁₀
307₁₀ + 137₁₀ = 444₁₀
444₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ = 110111100₂
1111111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 127₁₀
100001₂ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 33₁₀
127₁₀ + 33₁₀ = 160₁₀
160₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100000₂
10110001₂ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 177₁₀
1110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ = 14₁₀
177₁₀ * 14₁₀ = 2478₁₀
2478₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ + 0*2⁹ + 0*2¹⁰ + 1*2¹¹ = 100110101110₂
111011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ = 59₁₀
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
59₁₀ * 13₁₀ = 767₁₀
767₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ = 1011111111₂
3)
111₂ < 34₈ < 76₁₀ < A2₁₆
111₂ = 1*2⁰ + 1*2¹ + 1*2² = 7₁₀
A2₁₆ = 2*16⁰ + A*16¹ = 162₁₀
34₈ = 4*8⁰ + 3*8¹ = 28₁₀
76₁₀ = = 76₁₀
А чем тут помочь , если тут все уже решено?