<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
Program A1;
var
a:string;
begin
read(a);
if copy(a,length(a),1)='ч' then writeln('Муж');
if copy(a,length(a),1)='а' then writeln('Жен');
<span>end.</span>
1)101011001
2)0.0013)101101.10100110011
Нумеруем цифры 101100001 справа налево с нуля, то есть:
1=0
0=1
0=2
0=3
0=4
1=5
1=6
0=7
1=8
и после этого умножаем по порядку справа налево цифру на систему кодировки(у нас двоичная, то есть 2) и возводим 2 в степень числа, что я писал выше.
1*2^0+0*2^1+0*2^2+0*2^3+0*2^4+1*2^5+1*2^6+0*2^7+1*2^8=1+0+0+0+0+32+64+0+256=353
а теперь вычитаем из 0.00001-353=−352.99999