Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
Всего используется символов = 12 букв + 10 цифр = 22 символа
2^x>=22, x = 5 (бит)
5 бит используется для кодирования 1 символа
1 номер = 5(бит) * 6(символов) = 30 (бит) / 8 = 3,75 (байт)
Один из вариантов состоит из двух таблиц.
Левая таблица - база данных
правая форма отчета с необходимыми условиями
А вопрос какой?
можно сказать слово
весточка
Есть сомнения, что все единицы измерения указаны точно.
Но если все верно, тогда:
1 К/бит = 1000 бит
1 Байт = 8 бит
1 Кбайт = 1024 Байт
32 Кбит/с * 15 с = 480 Кбит *1000 = 480000 бит / 8 = 60000 Байт - размер текстового файла
8 байт/символ * 48 симв/страницу * х страниц = 60000 байт
х = 60000/48/8 = 156,25 страниц содержал переданный текст