// PascalABC.NET
begin
// 1
var s11 := SeqRandom(100, 10, 99).Sum;
var s12 := ArrRandom(100, 10, 99).Sum;
case Sign(s11 - s12) of
-1: Println('Сумма второго массива больше');
0: Println('Суммы равны');
else
Println('Сумма первого массива больше')
end;
// 2
var s21 := SeqRandom(1000, -9, 9).Sum;
var s22 := ArrRandom(1000, -9, 9).Sum;
var s23 := ArrRandom(1000, -9, 9).Sum;
if s21 > s22 then
Swap(s21, s22);
if s22 > s23 then
begin
Swap(s22, s23);
if s21 > s22 then
Swap(s21, s22)
end;
Println(s21, s22, s23);
// 3
var a := ArrRandom(50, -99, 99);
a.Println;
var s31 := a.Where(p -> p > 30);
Print('Количество', s31.Count, ' сумма', s31.Sum)
end.
ответ: Объяснение:
вариант 1
1.
100₂ = 0*2⁰ + 0*2¹ + 1*2² = 4₁₀
762₈ = 2*8⁰ + 6*8¹ + 7*8² = 498₁₀
FE₁₆ = 14*16⁰ + 15*16¹ = 254₁₀
2.
1050₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 0*2⁶ + 0*2⁷ + 0*2⁸ + 0*2⁹ + 1*2¹⁰ = 10000011010₂
1050₁₀ = 2*8⁰ + 3*8¹ + 0*8² + 2*8³ = 2032₈
1050₁₀ = 10*16⁰ + 1*16¹ + 4*16² = 41A₁₆
3.
1000000000₂ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 0*2⁷ + 0*2⁸ + 1*2⁹ = 512₁₀ - меньше всех
1004₈ = 4*8⁰ + 0*8¹ + 0*8² + 1*8³ = 516₁₀
206₁₆ = 6*16⁰ + 0*16¹ + 2*16² = 518₁₀ - больше всех
517₁₀
4.
100₁₀₀ = 0*100⁰ + 0*100¹ + 1*100² = 10000₁₀
20₉₉ = 0*99⁰ + 2*99¹ = 198₁₀
5.
1001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ = 9₁₀
1111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 15₁₀
24₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ = 11000₂
1001₂ + 1111₂ = 11000₂
56₈ = 6*8⁰ + 5*8¹ = 46₁₀
76₈ = 6*8⁰ + 7*8¹ = 62₁₀
108₁₀ = 4*8⁰ + 5*8¹ + 1*8² = 154₈
56₈ + 76₈ = 154₈
A0₁₆ = 0*16⁰ + 10*16¹ = 160₁₀
9F₁₆ = 15*16⁰ + 9*16¹ = 159₁₀
319₁₀ = 15*16⁰ + 3*16¹ + 1*16² = 13F₁₆
A0₁₆ + 9F₁₆ = 13F₁₆
вариант 2
1.
1000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 8₁₀
552₈ = 2*8⁰ + 5*8¹ + 5*8² = 362₁₀
AB₁₆ = 11*16⁰ + 10*16¹ = 171₁₀
2.
2000₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ + 1*2⁸ + 1*2⁹ + 1*2¹⁰ = 11111010000₂
2000₁₀ = 0*8⁰ + 2*8¹ + 7*8² + 3*8³ = 3720₈
2000₁₀ = 0*16⁰ + 13*16¹ + 7*16² = 7D0₁₆
3.
1111101000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ + 1*2⁸ + 1*2⁹ = 1000₁₀
1751₈ = 1*8⁰ + 5*8¹ + 7*8² + 1*8³ = 1001₁₀ - больше всех
3E7₁₆ = 7*16⁰ + E*16¹ + 3*16² = 999₁₀ - меньше всех
4.
200₁₀₀ = 0*100⁰ + 0*100¹ + 2*100² = 20000₁₀
10₉₉ = 0*99⁰ + 1*99¹ = 99₁₀
5.
1111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 15₁₀
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
28₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ = 11100₂
1111₂ + 1101₂ = 11100₂
77₈ = 7*8⁰ + 7*8¹ = 63₁₀
56₈ = 6*8⁰ + 5*8¹ = 46₁₀
109₁₀ = 5*8⁰ + 5*8¹ + 1*8² = 155₈
77₈ + 56₈ = 155₈
FE₁₆ = 14*16⁰ + 15*16¹ = 254₁₀
AB₁₆ = 11*16⁰ + 10*16¹ = 171₁₀
425₁₀ = 9*16⁰ + 10*16¹ + 1*16² = 1A9₁₆
FE₁₆ + AB₁₆ = 1A9₁₆
