Var
i,max,min,res,maxi,mini:integer;
a: array [1..15] of integer;
begin
writeln('Введите числа');
for i:=1 to 15 do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to 15 do
begin
if max<a[i] then begin
max:=a[i];
maxi:=i;
end;
if min>a[i] then begin
min:=a[i];
mini:=i;
end;
end;
if maxi>mini then
res:=maxi-mini
else
res:=mini-maxi;
res:=res-2;
writeln('между максимум и минимум = ', res, ' элементов');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.
<u>Результат</u>
Сумма=-8, количество слагаемых 4
Ответ:
1)
20₁₀
45₈
101001₂
65₁₆
24₈ = 4*8⁰ + 2*8¹ = 20₁₀
37₁₀ = 5*8⁰ + 4*8¹ = 45₈
41₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ = 101001₂
101₁₀ = 5*16⁰ + 6*16¹ = 65₁₆
2)
100110011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 0*2⁷ + 1*2⁸ = 307₁₀
10001001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 137₁₀
307₁₀ + 137₁₀ = 444₁₀
444₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ = 110111100₂
1111111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 127₁₀
100001₂ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 33₁₀
127₁₀ + 33₁₀ = 160₁₀
160₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100000₂
10110001₂ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 177₁₀
1110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ = 14₁₀
177₁₀ * 14₁₀ = 2478₁₀
2478₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ + 0*2⁹ + 0*2¹⁰ + 1*2¹¹ = 100110101110₂
111011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ = 59₁₀
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
59₁₀ * 13₁₀ = 767₁₀
767₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ = 1011111111₂
3)
111₂ < 34₈ < 76₁₀ < A2₁₆
111₂ = 1*2⁰ + 1*2¹ + 1*2² = 7₁₀
A2₁₆ = 2*16⁰ + A*16¹ = 162₁₀
34₈ = 4*8⁰ + 3*8¹ = 28₁₀
76₁₀ = = 76₁₀