1) 1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102
2)012 = 0∙21+1∙20 = 0+1 = 110
<em>MS DOS QBasic 1.0</em>
DIM n AS INTEGER
CLS
INPUT "N=", n
REDIM a(1 TO n) AS INTEGER
DIM a AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = 9 * RND + 1
PRINT a(i);
NEXT i
PRINT
'--------- SORT -----------
DIM j AS INTEGER, t AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i) < a(j) THEN
t = a(i): a(i) = a(j): a(j) = t
END IF
NEXT j
NEXT i
'---------------------------
t = a(1): j = 1
FOR i = 2 TO n
IF a(i) = t THEN
j = j + 1
ELSE
PRINT t; "-"; j
t = a(i): j = 1
END IF
NEXT i
PRINT t; "-"; j
<u>Пример</u>
N=10
7 5 2 7 3 3 5 9 7 6
2 - 1
3 - 2
5 - 2
6 - 1
7 - 3
9 - 1
В компьютере предел значения
можно приблизительно найти, как
где max(real) - максимальное число, представимое в компьютере.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Writeln((real.MaxValue-1)/real.MaxValue)
end.
<u>Результат</u>1
Крутящийся кружечек синего цвета