Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском
1) 81/2=40 (остаток 1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
81₁₀=1010001₂
2) 653/2=326 (1)
326/2=163 (0)
163/2=81 (1)
81/2=40 (1)
653₁₀=1010001101₂
3) 1001010₂=1·2⁶+0·2⁵+0·2⁴+1·2³+0·2²+1·2¹+0·2⁰=64+8+2=74₁₀
4) 1001000101₂=1·2⁹+0·2⁸+0·2⁷+1·2⁶+0·2⁵+0·2⁴+0·2³+1·2²+0·2¹+1·2⁰=512+64+4+1=581₁₀
1) 44/8=5 (4)
5/8=0 (5)
44₁₀=54₈
2) 804/8=100 (4)
100/8=12 (4)
12/8=1 (4)
1/8=0 (1)
804₁₀=1444₈
3) 17₈=1·8¹+7·8⁰=8+7=15₁₀
4) 1432₈=1·8³+4·8²+3·8¹+2·8⁰=512+256+24+2=794₁₀
1) 91/16=5 (11=B)
5/16=0 (5)
91₁₀=5B₁₆
2) 946/16=59 (2)
59/16=3 (11=B)
3/16=0 (3)
946₁₀=3B2₁₆
3) 21₁₆=2·16¹+1·16⁰=32+1=33₁₆
4) 34F₁₆=3·16²+4·16¹+15·16⁰=768+64+15=847₁₀
Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
begin
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском
Объяснение:
1) 81/2=40 (остаток 1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
81₁₀=1010001₂
2) 653/2=326 (1)
326/2=163 (0)
163/2=81 (1)
81/2=40 (1)
40/2=20 (0)
20/2=10 (0)
10/2=5 (0)
5/2=2 (1)
2/2=1 (0)
1/2=0 (1)
653₁₀=1010001101₂
3) 1001010₂=1·2⁶+0·2⁵+0·2⁴+1·2³+0·2²+1·2¹+0·2⁰=64+8+2=74₁₀
4) 1001000101₂=1·2⁹+0·2⁸+0·2⁷+1·2⁶+0·2⁵+0·2⁴+0·2³+1·2²+0·2¹+1·2⁰=512+64+4+1=581₁₀
1) 44/8=5 (4)
5/8=0 (5)
44₁₀=54₈
2) 804/8=100 (4)
100/8=12 (4)
12/8=1 (4)
1/8=0 (1)
804₁₀=1444₈
3) 17₈=1·8¹+7·8⁰=8+7=15₁₀
4) 1432₈=1·8³+4·8²+3·8¹+2·8⁰=512+256+24+2=794₁₀
1) 91/16=5 (11=B)
5/16=0 (5)
91₁₀=5B₁₆
2) 946/16=59 (2)
59/16=3 (11=B)
3/16=0 (3)
946₁₀=3B2₁₆
3) 21₁₆=2·16¹+1·16⁰=32+1=33₁₆
4) 34F₁₆=3·16²+4·16¹+15·16⁰=768+64+15=847₁₀