Вычислить у = 1/(2-x) в pascal abc !

program pr1; uses crt; var x: real; beginclrscr; writeln('vvedite x'); readln(x); writeln('y=',1/(2-x)); end.

Вкинозале всего 16×32=512 мест. сообщение о купленном билете однозначно определяет выбор одного из этих мест. из уравнения  2  i  = 512=29получаем: i=9 бит. но эту же можно решать иначе. сообщение о номере ряда несет 4 бита информации, т.к. 24=16. сообщение о номере места несет 5 бит информации, т.к. 25=32. в целом сообщение про ряд и место несет: 4+5=9 бит информации. данный пример иллюстрирует выполнение закона активности информации (правило сложения):   количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.

Var  i, n, a, b,n1: integer; begin  write('введите число ');   readln(n);   n1 : = n;   a : = n mod 10;   case a of    2, 3: n : = n * ((n div 10) mod 10);     7, 8, 9:       begin        for i : = 1 to length(inttostr(n)) do          begin          b : = b + (n mod 10); n : = n div 10; end; n : = n1 - b; end;     1, 4, 5, 6, 0: n : = n div 10;   end;   write(n); end.