9. Разделитесь на группы. Распределите строки таблицы между участниками группы. Каждый участник составляет предложение с новым словом. Можно найти это пред- ложение в учебнике. Новое слово Предложение Друг Часть Целое
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 uses GraphABC;
procedure OutLightGreen(n:integer); begin var OldColor:=FontColor; SetFontColor(clLightGreen); Write(n:5); SetFontColor(OldColor) end;
begin var a:=MatrixRandom(10,14,-180,320); var m:=ReadInteger('n='); Writeln; SetFontColor(clWhite); Font.Style:=fsBold; Font.Name:='Courier'; Brush.Color:=clBlack; Window.Clear(clBlack); var k:=0; for var i:=0 to 9 do begin for var j:=0 to 13 do if a[i,j]>m then begin Inc(k); OutLightGreen(a[i,j]) end else Write(a[i,j]:5); Writeln end; SetFontColor(clRed); Writeln('Количество элементов равно ',k) end.
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
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₁₆