Uses crt;
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,b,j,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(40)-20;
write(a[i,j]:3);
end;
writeln;
k:=1;
b:=20;
repeat
for i:=k to k do
for j:=1 to m do
if (a[i,j]<b) then b:=a[i,j];
writeln(b);
inc(k);
b:=20;
until k>n;
end.
Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.
до 11
пример:
for var i := 2 to 11 do ...
153766₈=(заменяем каждую цифру на двоичную)
=001 101 011 111 110 110₂, первые два нуля не в счет. (не значащие)
Считаем, всего нулей 4.
Ответ: 4
Подробное решение в прикрепленных.
1. 100111(2) = 39(10)
2. 513(10) = 1000000<span>001(2)
7000(10) = </span>1101101011<span>000(2)
3. 8700(10) = </span>20<span>774(8)
9300(10) = </span>22<span>124(8)
4. 287(10) = </span><span>11F(16)
1023(10) = </span><span>3FF(16)
5. 1010001001011(2) = </span>12<span>113(8)
</span>1010001001011(2) = 1<span>44B(16)
10</span>11001101111(2) = 13<span>157(8)
</span><span>1011001101111(2) = </span><span>166F(16)
6. 266(8) = </span>10110<span>110(2)
2A19(16) = </span>10101000011<span>001(2)
7. 29(10) = </span>11<span>101(2)
17(10) = </span>10<span>001(2)
11101(2) + </span>10<span>001(2) = </span>101<span>110(2)</span>
11101(2) - 10001(2) = 1<span>100(2)</span>
11101(2) * 10001(2) = 111101<span>101(2)</span>