Ответ:
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₁₀
Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
горело 7 свечей, 3 потухли. Сколько свечей осталось?
Тупа подставляя в фомулу получим 7 - 3 = 4
но правильный ответ то 3, ведь не полушенные свечи сгорели
Это проверка текста на орфографию.
Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.
program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if (a mod 8 = 0) and (a mod 10 = 6)
then sum+= a;
until a = 0;
writeln('Сумма: ',sum);
end.
<h3><u>PascalABC 3.4.2</u></h3>