begin
var a := ArrRandomReal(10,-99,99);
a.Println;
a[a.IndexMax] := a.Average;
a.Println;
end.
На PascalABC.NET
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 256 * 30 * 70 = 537600 шт
По формуле (N - мощность алфавита, i - вес одного символа)
бит (округляем в большую сторону так как кусками тут быть не может)
I - ?
Решение:
I = K * i = 537600 * 8 бит = 4300800.0 бит
4300800.0 бит = 537600.0 байт = 525.0 Кбайт
Решение с помощью таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.
Var
s: string;
i, n: integer;
c: char;
b:boolean;
begin
readln(n);
s := inttostr(n);
for c := '0' to '9' do
begin
b := true;
for i := 1 to length(s) do
if s[i] = c then begin
b := false;
break;
end;
if b then writeln(c);
end;
end.
1) шрифт (выбор шрифта)
2) размер шрифта
3) живность шрифта
4) наклон шрифта
5) нижнее подчеркивает текстов
6)расположение шрифта относительно листа (слева, по центру, справа)
7) добавление пунктов в текст.
потом посмотрите у какого шрифта какое расписание и впишите справа их названия.