<span>var
i:integer;
begin
i:=2;
while i<=100 do
begin
write (i,' ');
i:=i+2;
end;
end.</span>
Входами (системы).........
Сон Паскаль итальянский музыкант, приехавший в Казахстан из Лондона Его шуточные интерпретации мировых хитов вроде «Englishman in Shymkent» в дуэте с Ануаром Нурпеисовым завоевали большое внимание и одобрение казахстанской публики. Премьера клипа была представлена не только казахстанскому зрителю, также она прошла и в шотландском городе Эдинбурге.До приезда в Казахстан Паскаль работал в Италии. Затем жил в Англии и только потом попал в Казахстан по приглашению малоизвестной девушки, которая оказалась на его концерте. Сон и не думал задерживаться здесь, лишь хотел открыть для себя новую страну.<span>Сегодня музыкант уже записывает новые песни в дуэтах с известными казахстанскими исполнителями.</span>
Ответ:
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₁₀
Если нужно от 15 до 2 :
Var i:integer
Begin
i:=2
while i<=15 do begin
write(i**3,' ')
end;
end.
P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.