Статья набранная на компьютере содержит 4 страницы на каждой странице 40 строк в каждой строке 64 символа определите информационный объём статьи в одной из кодировок unicode в которой каждый символ кодируется 16 битами​

и какая вероятность что пользователь не

 

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.

 

 

Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.все работает! const n=3; m=4; var a: array [1..n,1..m] of integer;     i,j,k,max: integer;     ind: array [0..1] of integer=(1,1); begin  randomize;     for i: =low(a) to high(a) do    for j: =low(a) to high(a[1]) do      a[i,j]: =random(100);   for i: =low(a) to high(a) do    begin      writeln;     for j: =low(a) to high(a[1]) do    write(a[i,j]: 3);     end;     max: =a[1,1];     for i: =low(a) to high(a) do    for j: =low(a) to high(a[1]) do     if a[i,j]> max then      begin        max: =a[i,j];         ind[0]: =i;         ind[1]: =j;       end;       writeln;   writeln(' max element: ',max);   write(' index: ');     for i: =0 to 1 do    write(ind[i],' ');   readln; end.