А) 100(10) = 64 + 32 + 4 = 2^6 + 2^5 + 2^2 = 1100100(2)
Б) 187(10) = 2*64 + 7*8 + 3 = 2*8^2 + 7*8 + 3 = 273(8)
В) 2572(10) = 10*256 +0*16 + 12 = A0C(16)
Г) 1458(10) = 2*625 + 125+ 3*25 +5+3 = 2*5^4 + 5^3 + 3*5^2 + 5 + 3 = 21313(5)
Д) 53(10) = 27 + 2*9 + 2*3 + 2 = 3^3 + 2*3^2 + 2*3 + 2 = 1222(3)
Program abc;
const<span> arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
</span>var<span> i, j: integer;
</span>begin
<span>
for i := 1 to 4 do
</span><span> begin</span><span>
for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;
</span><span> writeln();
</span><span> end;</span>
<span> writeln();
</span><span>
for i := 1 to 4 do
</span><span>begin
</span><span> j := arr[2][i];
</span><span> arr[2][i] := arr[3][i];
</span><span> arr[3][i] := j;
</span><span> end;
</span><span> for i := 1 to 4 do
</span><span>begin
</span><span> for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;</span><span>
writeln();
</span><span> end;
</span><span>end.</span>
var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.