Составьте программу сортировки по возрастанию значений трёх переменных: a, d,c.

Var       a, d, c, t: integer; begin       readln(a, d, c);       if a < d then begin t : = a; a : = d; d : = t; end;       if a < c then begin t : = a; a : = c; c : = t; end;       if d < c then begin t : = d; d : = c; c : = t; end;       writeln(a, ' ', d, ' ', c); end.

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

 

byck is my dog.