<em>MS DOS QBasic 1.0</em>
RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 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
FOR i = 1 TO n
PRINT a(i);
NEXT i
<u>Пример</u>
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7
1) текстовые файлы 2) графические файлы
var
x,y:real;
begin
Write('Введите х и у через пробел- '); Read(x,y);
Writeln(1+y/x)
end.
<u>Пример</u>Введите х и у через пробел- 13.54 -8.3
0.387001477104874
1. Определим сколько бит нам надо для хранения информации об одном символе 2⁶ < 96 < 2⁷, значит нам надо 7 бит.
2. Информационный объем сообщения = 24*7 = 168 бит = 21 байт
Ответ: 21 байт
София-Соня-Софья. Скорее всего, так. с: