Решить на тему кол-во ! ! 1) вычислить какой объём памяти компьютера потребуется для хранения одной страницы текста на языке, содержащей 2400 символов. 2) в течение 5 секунд было передано сообщение, объём которого составил 375 байт. каков размер алфавита, с которого записано сообщение, если скорость передачи составила 200 символов в секунду?

1. n=26 значит i=5

x = 2400 * 5 = 12000

 

2. 375 бит = 3000 бит

передано 200*5=1000 символов

i=3000/1000=3

n=2^i

n=8

 

Const   n = 10; var   matrix : array [1..n] of array [1..n] of integer;   i, j, max : integer; begin   {формирование матрицы}   for j : = 1 to n do   begin     if j < = trunc(n / 2) then         {находим последний индекс для вставки 1}         max : = j             else         max : = n - j + 1;     for i : = 1 to max do                           {заполняем линию единицами}     begin       matrix[j][i] : = 1;       matrix[j][n - i + 1] : = 1;     end;   end;   {вывод матрицы (если не нужно, удалите код)}   for j : = 1 to n do   begin     for i : = 1 to n do       write(matrix[j][i], ' ');     writeln;     end;       end.  

Var     i,n,x: integer;     a: array[1..4]of integer; begin readln(n); for i: =4 downto 1 do   begin   x: =n mod 10;   a[i]: =x;   n: =(n-x) div 10;   end; writeln('произведение четных: ',a[2]*a[4]); writeln('произведение нечетных: ',a[1]*a[3]); end.если можно использовать строковые функции, то будет  проще: var    i: integer;     n: string;     a: array[1..4]of integer; beginreadln(n); for i: =1 to 4 do  a[i]: =strtoint(n[i]); writeln('произведение четных: ',a[2]*a[4]); writeln('произведение нечетных: ',a[1]*a[3]); end.