Пропускная способность сист.шины=разрядность шины(бит)*частота шины(Гц)
64*1066*1000000=68224000000 бит/с, т.е. после перевода ок.8133 Мб/с
120ₓ = 63₁₀
1 · x² + 2 · x¹ + 0 · x⁰ = 63
x² + 2x - 63 = 0;
D = 4 + 252 = 16²
x₁₂ = (-2 ± 16) / 2 = -9, 7
Отрицательная система счисления нам не подходит, поэтому ответом является 7.
Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
if (a1*a2 mod 3 = 0) then
begin
writeln('da');
end
else
writeln('net');
end.
<span>Program a1; </span>
<span>var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; </span>
<span>begin </span>
<span>writeln('Vvedite massiv Y: '); {просим ввести массив} </span>
<span>for k:=1 to 14 do read(y[k]); {записываем массив} </span>
<span>s1:=0; s2:=0; {счётчики на 0} </span>
<span>minY:=y[1]; {присваиваем первому значению минимум...} </span>
<span>for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} </span>
<span>maxY:=y[1]; {присваиваем второму значению максимум...> <} </span>
<span>for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} </span>
<span>m:=y[s1]; {используя переменную m меняем местами элементы} </span>
<span>y[s1]:=y[s2]; </span>
<span>y[s2]:=m; </span>
<span>writeln('Novyi massiv: '); </span>
<span>for k:=1 to 14 do write(y[k],' '); {выводим новый массив} </span>
<span>readln </span>
<span>end.</span>