Урок 5 (Табличные модели) Задание 2: Рекорд Олимпийских игр в беге на 800 м установлен в 1984 г. Рекорд мира в беге на 800 м - 1'41,73". Рекорд Олимпийских игр в беге на 5000 м - 13'05,59". Рекордсмен Олимпийских игр в беге на 100 м - К.Льюис (США). Рекордсмен Олимпийских игр в беге на 10000 м - Б.Бутаиб (Марокко). Рекорд мира в беге на 5000 м установлен в 1987 г. Рекордсмен мира в беге на 800 м C.Коэ (Великобритания). Рекордсмен Олимпийских игр в беге на 5000 м - C.Ауита (Марокко). Рекорд мира в беге на 100 м - 9,86". Рекорд мира в беге на 800 м установлен в 1981 г. Рекорд Олимпийских игр в беге на 100 м - 9,86". Рекордсмен мира в беге на 10000 м - А.Барриос (Мексика). Рекорд мира в беге на 5000 м - 12'58,39". Рекорд мира в беге на 100 м установлен в 1988 г. Рекорд Олимпийских игр в беге на 800 м - 1'43,00''. Рекорд мира в беге на 10000 м установлен в 1989 г. Рекорд Олимпийских игр в беге на 100 м установлен в 1988 г. Рекорд Олимпийских игр в беге на 10000 м - 27'21,46". Рекорд Олимпийских игр в беге на 10000 м установлен в 1988 г. Рекорд Олимпийских игр в беге на 5000 м установлен в 1984 г. Рекордсмен мира в беге на 100 м - К.Льюис (США). … Рекордсмен Олимпийских игр в беге на 800 м - Ж.Круж (Бразилия). Рекордсмен мира в беге на 5000 м - С.Ауита (Марокко). Рекорд мира в беге на 10000 м- 27'08.23".
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Объяснение:
1. Пронумеруем разряды:
3-й разряд - 4;
2-й разряд - 1;
1-й разряд - 5;
0-й разряд - 3.
4153₈=4·8³+1·8²+5·8¹+3·8⁰
2. 4153₈=4·8³+1·8²+5·8¹+3·8⁰=2048+16+40+3=2155₁₀
3. 125/8=15 (5)
15/8=1 (7)
(1)
125₁₀=175₈
4. Пронумеруем разряды:
2-й разряд - A;
1-й разряд - 6;
0-й разряд - E;
A6E₁₆=(10)(6)(14)=10·16²+6·16¹+14·16⁰
5. A6E₁₆=10·16²+6·16¹+14·16⁰=2560+96+14=2670₁₀
6. 350/16=21 (14=E)
21/16=1 (5)
(1)
350₁₀=15E₁₆
7. 247/2=123 (1)
123/2=61 (1)
61/2=30 (1)
30/2=15 (0)
15/2=7 (1)
7/2=3 (1)
3/2=1 (1)
(1)
247₁₀=11110111₂
247/8=30 (7)
30/8=3 (6)
(3)
247₁₀=367₈
247/16=7 (15=F)
(7)
247₁₀=7F₁₆
Получившиеся числа между собой равны, так как имеют одинаковое число в десятичной системе счисления.