Нет ,на рисунке белая скатерть
<span>Сейчас в основном используются 8 битные кодировки, постепенно идет переход на юникод.</span>
INPUT s$
k = LEN(s$) + 1
FOR i = 1 TO k
IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
NEXT i
n = n + 1
DIM f$(n)
j = 1
FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
t$ = MID$(s$, i, 1)
f$(j) = f$(j) + t$
IF t$ = " " THEN j = j + 1
NEXT i
f$(n) = f$(n) + " "
FOR i = 1 TO n 'делаем сортировку массива
FOR j = 1 TO n
IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN
P$ = f$(i)
f$(i) = f$(j)
f$(j) = P$
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT f$(i);
NEXT i<span>
</span>
256 цветов кодируются 8мью битами 2 ^ 8 =256
Ответ: 10 * 10 * 8 = 800 бит
Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
Write('Элементы массива: ');
for i := 1 to n do
begin
if (i mod 2) = 0 then a[i] := 3 * i else a[i] := i;
Write(a[i]:3)
end
end.
Тестовое решение:
Элементы массива: 1 6 3 12 5 18 7 24 9 30
